From: Nicholas Clark <nick@ccl4.org>
Date: Tue, 15 Sep 2009 16:42:23 +0000 (+0100)
Subject: 109e4020 failed to delete the clone of splittree.pl in the NetWare directory.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2da760ceef1d2d90b3141bdeb239c7d7580be05a;hp=109e4020ef40828991be28fb05d9f269b4d92530;p=p5sagit%2Fp5-mst-13.2.git

109e4020 failed to delete the clone of splittree.pl in the NetWare directory.

(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.)
---

diff --git a/NetWare/splittree.pl b/NetWare/splittree.pl
deleted file mode 100644
index 3c76daa..0000000
--- a/NetWare/splittree.pl
+++ /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];