diff options
author | Nicholas Clark <nick@ccl4.org> | 2009-09-17 15:00:01 +0100 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2009-09-17 15:00:01 +0100 |
commit | 19ec6f53213f9991324bf8d63675bf45dc8b0af0 (patch) | |
tree | 536741ace4766fc2755823cdd6e7f93bf176041e /win32/splittree.pl | |
parent | 281da5eaa82c552216e167aece73c3f8df066bd4 (diff) | |
download | perl-19ec6f53213f9991324bf8d63675bf45dc8b0af0.tar.gz |
Now no need to run AutoSplit on lib on Win32, with DynaLoader builing in ext
This reverts the win32 part of commit 9139c7231c70a9388d718abc41e91edaf43422ec,
reinstating the win32 part of commit 109e4020ef40828991be28fb05d9f269b4d92530.
Diffstat (limited to 'win32/splittree.pl')
-rw-r--r-- | win32/splittree.pl | 24 |
1 files changed, 0 insertions, 24 deletions
diff --git a/win32/splittree.pl b/win32/splittree.pl deleted file mode 100644 index 3c76daadb1..0000000000 --- a/win32/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]; |