X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FFile%2FFind.pm;h=c151bcc891f91c52f67226c9db4582cdd6e8a8fe;hb=4633a7c4bad06b471d9310620b7fe8ddd158cccd;hp=ba495a140a2f872d4f24d2ce756fddbd5f11d4cb;hpb=f06db76b9e41859439aeadb79feb6c603ee741ff;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/lib/File/Find.pm b/lib/File/Find.pm
index ba495a1..c151bcc 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.