diff options
| author | Perl 5 Porters <perl5-porters@africa.nicoh.com> | 1996-03-18 01:24:39 +0000 |
|---|---|---|
| committer | Charles Bailey <bailey@genetics.upenn.edu> | 1996-03-18 01:24:39 +0000 |
| commit | 10eba7639c3bcb517c1b98078c417b4c12eb09f4 (patch) | |
| tree | 5703fd27b3195719145b5ff447d39219ff276d87 /lib/File/Find.pm | |
| parent | 9b957b78773d3bc6c770e459acf9b99a39bc1791 (diff) | |
| download | perl-10eba7639c3bcb517c1b98078c417b4c12eb09f4.tar.gz | |
Miscellaneous bugfixes; use $^O
Diffstat (limited to 'lib/File/Find.pm')
| -rw-r--r-- | lib/File/Find.pm | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lib/File/Find.pm b/lib/File/Find.pm index 780dfea469..02bacd8fc2 100644 --- a/lib/File/Find.pm +++ b/lib/File/Find.pm @@ -1,7 +1,7 @@ package File::Find; require 5.000; require Exporter; -require Config; +use Config; require Cwd; require File::Basename; @@ -133,8 +133,8 @@ sub finddir { # Get link count and check for directoriness. - ($dev,$ino,$mode,$nlink) = ($Is_VMS ? stat($_) : lstat($_)) - unless ($nlink || $dont_use_nlink); + ($dev,$ino,$mode,$nlink) = ($Is_VMS ? stat($_) : lstat($_)); + # unless ($nlink || $dont_use_nlink); if (-d _) { @@ -243,13 +243,13 @@ sub finddepthdir { $dont_use_nlink = 1 if ($Config::Config{'dont_use_nlink'}); # These are hard-coded for now, but may move to hint files. -if ($Config::Config{'osname'} eq 'VMS') { +if ($^O eq 'VMS') { $Is_VMS = 1; $dont_use_nlink = 1; } -$dont_use_nlink = 1 if $Config::Config{'osname'} =~ m:^os/?2$:i ; -$dont_use_nlink = 1 if $Config::Config{'osname'} =~ m:^mswin32$:i ; +$dont_use_nlink = 1 if $^O eq 'os2'; +$dont_use_nlink = 1 if $^O =~ m:^mswin32$:i ; 1; |