109e4020 failed to delete the clone of splittree.pl in the NetWare directory.
authorNicholas Clark <nick@ccl4.org>
Tue, 15 Sep 2009 16:42:23 +0000 (17:42 +0100)
committerNicholas Clark <nick@ccl4.org>
Tue, 15 Sep 2009 16:42:23 +0000 (17:42 +0100)
(I wonder how much of the rest of the NetWare directory is a copy-and-edit of
the win32 directory. I wonder how far NetWare is off working. I wonder if
anyone still uses NetWare.)

NetWare/splittree.pl [deleted file]

diff --git a/NetWare/splittree.pl b/NetWare/splittree.pl
deleted file mode 100644 (file)
index 3c76daa..0000000
+++ /dev/null
@@ -1,24 +0,0 @@
-use DirHandle;
-use AutoSplit;
-
-sub splitthis {
-my ($top,$base,$dest) = @_;
-my $d = new DirHandle $base;
-if (defined $d) {
-       while (defined($_ = $d->read)) {
-               next if $_ eq ".";
-               next if $_ eq "..";
-               my $entry = "$base\\$_";
-               my $entrywithouttop = $entry;
-               $entrywithouttop =~ s/^$top//;
-               if (-d $entry) {splitthis ($top,$entry,$dest);}
-               else { 
-                       next unless ($entry=~/pm$/i);
-                       #print "Will run autosplit on $entry to $dest\n";
-                       autosplit($entry,$dest,0,1,1);
-                       };
-               };
-       };
-}
-
-splitthis $ARGV[0],$ARGV[0],$ARGV[1];