Dear Monks,

this is most certainly a misunderstanding of a scope issue but I cannot solve this puzzle myself.

The following code works:

#!/perl
use strict;
use warnings;

use File::Find;

my $dir = qw(N:/TMP);
find( \&wanted, $dir );

sub wanted
{
  print "[$dir] $File::Find::dir $File::Find::name\n";
}
[download]

However if I try to call the same in the loop:

my @dir = ( qw( N:/TMP N:/TMP_2 ));
for my $dir ( @dir)
{
  find( \&wanted, $dir );
}
[download]

it dies with the message:

Global symbol "$dir" requires explicit package name at ...
[download]

If I call the same as an anonyme subroutine, it works:

for my $dir ( @dir)
{
  find( sub {print "[$dir] $File::Find::dir $File::Find::name\n";}, 
  $dir );
}
[download]

Could you please explain this behavior?

Thanks in advance.

VE