In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/2da760ceef1d2d90b3141bdeb239c7d7580be05a?hp=109e4020ef40828991be28fb05d9f269b4d92530>
- Log ----------------------------------------------------------------- commit 2da760ceef1d2d90b3141bdeb239c7d7580be05a Author: Nicholas Clark <[email protected]> Date: Tue Sep 15 17:42:23 2009 +0100 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.) ----------------------------------------------------------------------- Summary of changes: NetWare/splittree.pl | 24 ------------------------ 1 files changed, 0 insertions(+), 24 deletions(-) delete mode 100644 NetWare/splittree.pl 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]; -- Perl5 Master Repository
