source: trunk/essentials/dev-lang/perl/NetWare/splittree.pl@ 3394

Last change on this file since 3394 was 3181, checked in by bird, 19 years ago

perl 5.8.8
File size: 527 bytes
Line 
1use DirHandle;
2use AutoSplit;
3
4sub splitthis {
5my ($top,$base,$dest) = @_;
6my $d = new DirHandle $base;
7if (defined $d) {