diff options
Diffstat (limited to 'lib/File/Find.pm')
| -rw-r--r-- | lib/File/Find.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lib/File/Find.pm b/lib/File/Find.pm index ba495a140a..c151bcc891 100644 --- a/lib/File/Find.pm +++ b/lib/File/Find.pm @@ -63,6 +63,8 @@ that don't resolve: @ISA = qw(Exporter); @EXPORT = qw(find finddepth $name $dir); +$dont_use_nlink = 1 if $Config{osname} =~ m:^os/?2$:i ; + # Usage: # use File::Find; # @@ -236,7 +238,7 @@ sub finddepth { sub finddepthdir { my($wanted,$dir,$nlink) = @_; my($dev,$ino,$mode,$subcount); - my($name); + local($name); # so &wanted sees current value # Get the list of files in the current directory. |