From 76d2194af31c57248d6ad73f59b5a14e54b14a42 Mon Sep 17 00:00:00 2001
From: Tony Cook <tony@develop-help.com>
Date: Tue, 25 May 2021 10:51:05 +1000
Subject: File::Copy: compare inode numbers as strings

as recommended in perldoc -f stat
---
 lib/File/Copy.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'lib/File')

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;
 	    }
-- 
cgit v1.2.1