Revision 10724,
527 bytes
checked in by ghudson, 27 years ago
(diff) |
This commit was generated by cvs2svn to compensate for changes in r10723,
which included commits to RCS files with non-trunk default branches.
|
Line | |
---|
1 | use DirHandle; |
---|
2 | use AutoSplit; |
---|
3 | |
---|
4 | sub splitthis { |
---|
5 | my ($top,$base,$dest) = @_; |
---|
6 | my $d = new DirHandle $base; |
---|
7 | if (defined $d) { |
---|
8 | while (defined($_ = $d->read)) { |
---|
9 | next if $_ eq "."; |
---|
10 | next if $_ eq ".."; |
---|
11 | my $entry = "$base\\$_"; |
---|
12 | my $entrywithouttop = $entry; |
---|
13 | $entrywithouttop =~ s/^$top//; |
---|
14 | if (-d $entry) {splitthis ($top,$entry,$dest);} |
---|
15 | else { |
---|
16 | next unless ($entry=~/pm$/i); |
---|
17 | #print "Will run autosplit on $entry to $dest\n"; |
---|
18 | autosplit($entry,$dest,0,1,1); |
---|
19 | }; |
---|
20 | }; |
---|
21 | }; |
---|
22 | } |
---|
23 | |
---|
24 | splitthis $ARGV[0],$ARGV[0],$ARGV[1]; |
---|
Note: See
TracBrowser
for help on using the repository browser.