diff options
author | Tony Cook <tony@develop-help.com> | 2021-05-25 10:51:05 +1000 |
---|---|---|
committer | Tony Cook <tony@develop-help.com> | 2021-05-25 10:51:05 +1000 |
commit | 76d2194af31c57248d6ad73f59b5a14e54b14a42 (patch) | |
tree | ef3d8862155a0ba5f83ac76186e57f5721973885 /lib/File | |
parent | ff6af44f60e2d4d614ab3c464ee736cd7b332a4d (diff) | |
download | perl-76d2194af31c57248d6ad73f59b5a14e54b14a42.tar.gz |
File::Copy: compare inode numbers as strings
as recommended in perldoc -f stat
Diffstat (limited to 'lib/File')
-rw-r--r-- | lib/File/Copy.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/File/Copy.pm b/lib/File/Copy.pm index ac98cc2df0..05ed01b735 100644 --- a/lib/File/Copy.pm +++ b/lib/File/Copy.pm @@ -24,7 +24,7 @@ sub syscopy; sub cp; sub mv; -$VERSION = '2.35'; +$VERSION = '2.36'; require Exporter; @ISA = qw(Exporter); @@ -104,7 +104,7 @@ sub copy { my @fs = stat($from); if (@fs) { my @ts = stat($to); - if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) { + if (@ts && $fs[0] == $ts[0] && $fs[1] eq $ts[1] && !-p $from) { carp("'$from' and '$to' are identical (not copied)"); return 0; } |