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]