diff options
author | Tony Cook <tony@develop-help.com> | 2021-05-17 15:58:55 +1000 |
---|---|---|
committer | Tony Cook <tony@develop-help.com> | 2021-05-24 14:42:14 +1000 |
commit | 73a0855d2ec0cb86185ff6bffd7b8856f80b65fe (patch) | |
tree | b5b7a742d9841a612391cd3ed01bcdb5b15f4a58 /dist/PathTools | |
parent | 8f432bc3ba869d057076b810871aa3c2071b7229 (diff) | |
download | perl-73a0855d2ec0cb86185ff6bffd7b8856f80b65fe.tar.gz |
PathTools: compare inode numbers as strings
as recommended in perldoc -f stat
Diffstat (limited to 'dist/PathTools')
-rw-r--r-- | dist/PathTools/Cwd.pm | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/dist/PathTools/Cwd.pm b/dist/PathTools/Cwd.pm index 6a1d2f17ee..60e4fa3eee 100644 --- a/dist/PathTools/Cwd.pm +++ b/dist/PathTools/Cwd.pm @@ -275,7 +275,7 @@ sub fastcwd_ { ($odev, $oino) = ($cdev, $cino); CORE::chdir('..') || return undef; ($cdev, $cino) = stat('.'); - last if $odev == $cdev && $oino == $cino; + last if $odev == $cdev && $oino eq $cino; opendir(DIR, '.') || return undef; for (;;) { $direntry = readdir(DIR); @@ -284,7 +284,7 @@ sub fastcwd_ { next if $direntry eq '..'; ($tdev, $tino) = lstat($direntry); - last unless $tdev != $odev || $tino != $oino; + last unless $tdev != $odev || $tino ne $oino; } closedir(DIR); return undef unless defined $direntry; # should never happen @@ -298,7 +298,7 @@ sub fastcwd_ { && CORE::chdir($1) or return undef; ($cdev, $cino) = stat('.'); die "Unstable directory path, current directory changed unexpectedly" - if $cdev != $orig_cdev || $cino != $orig_cino; + if $cdev != $orig_cdev || $cino ne $orig_cino; $path; } if (not defined &fastcwd) { *fastcwd = \&fastcwd_ } @@ -315,7 +315,7 @@ sub chdir_init { if ($ENV{'PWD'} and $^O ne 'os2' and $^O ne 'dos' and $^O ne 'MSWin32') { my($dd,$di) = stat('.'); my($pd,$pi) = stat($ENV{'PWD'}); - if (!defined $dd or !defined $pd or $di != $pi or $dd != $pd) { + if (!defined $dd or !defined $pd or $di ne $pi or $dd != $pd) { $ENV{'PWD'} = cwd(); } } @@ -328,7 +328,7 @@ sub chdir_init { if ($^O ne 'MSWin32' and $ENV{'PWD'} =~ m|(/[^/]+(/[^/]+/[^/]+))(.*)|s) { my($pd,$pi) = stat($2); my($dd,$di) = stat($1); - if (defined $pd and defined $dd and $di == $pi and $dd == $pd) { + if (defined $pd and defined $dd and $di ne $pi and $dd == $pd) { $ENV{'PWD'}="$2$3"; } } @@ -430,7 +430,7 @@ sub _perl_abs_path $! = $e; return undef; } - if ($pst[0] == $cst[0] && $pst[1] == $cst[1]) + if ($pst[0] == $cst[0] && $pst[1] eq $cst[1]) { $dir = undef; } @@ -448,7 +448,7 @@ sub _perl_abs_path $tst[0] = $pst[0]+1 unless (@tst = lstat("$dotdots/$dir")) } while ($dir eq '.' || $dir eq '..' || $tst[0] != $pst[0] || - $tst[1] != $pst[1]); + $tst[1] ne $pst[1]); } $cwd = (defined $dir ? "$dir" : "" ) . "/$cwd" ; closedir(PARENT); |