Hi Folks, Perl 5.8.8-1 RO 3.7 in raFS
Can someone check the following:
Substitute appropriate directories for 'dira dirb' (shift-drag) and see how
deep this script goes...
########################
#!/usr/bin/perl -w
use File::Find;
use strict;
my @dirs= qw/ dira dirb /;
find(\&wanted, @dirs);
sub wanted{
print "$File::Find::dir - $_\n";
}
########################
It only goes one directory deep here :-(
Runs full depth on my linux box.
Cheerio,
--
>> [EMAIL PROTECTED]
