File::Find

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]