The code compiles clean under ActivePerl 5.8.9 on WinXP. The version of File::Find is 1.13. The issue is that neither of the print statements generate any output. Gotta believe I am doing something wrong, but exactly what, has not hit me yet. Any ideas on what I am doing wrong? Thanks.use strict; use warnings; use File::Find; my $in_dir = "C:\\temp"; my $rc = q{}; sub select_files { print ("function was entered\n"); } $File::Find::prune = 0; $rc=find(\&select_files, $in_dir); print ("find returned with $rc\n"); exit(0);
In reply to File::Find stalls by loveperl0721
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |