From 2da760ceef1d2d90b3141bdeb239c7d7580be05a Mon Sep 17 00:00:00 2001 From: Nicholas Clark Date: Tue, 15 Sep 2009 17:42:23 +0100 Subject: 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.) --- NetWare/splittree.pl | 24 ------------------------ 1 file changed, 24 deletions(-) delete mode 100644 NetWare/splittree.pl (limited to 'NetWare') diff --git a/NetWare/splittree.pl b/NetWare/splittree.pl deleted file mode 100644 index 3c76daadb1..0000000000 --- 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]; -- cgit v1.2.1