From a93b80c9f2cfbc274d7ad7ab7a53c560516968c5 Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 2 Aug 2001 22:29:34 +0000
Subject: Be more careful about non-existent files.

p4raw-id: //depot/perl@11555
---
 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 0a6ea8bfef..861f65f00b 100644
--- a/lib/File/Copy.pm
+++ b/lib/File/Copy.pm
@@ -72,10 +72,10 @@ sub copy {
 
     if ($Config{d_symlink} && $Config{d_readlink} &&
 	!($^O eq 'Win32' || $^O eq 'os2' || $^O eq 'vms')) {
-	if (-l $from || -l $to) {
+	if ((-e $from && -l $from) || (-e $to && -l $to)) {
 	    my @fs = stat($from);
 	    my @ts = stat($to);
-	    if ($fs[0] == $ts[0] && $fs[1] == $ts[1]) {
+	    if (@fs && @ts && $fs[0] == $ts[0] && $fs[1] == $ts[1]) {
 		croak("'$from' and '$to' are identical (not copied)");
 	    }
 	}
-- 
cgit v1.2.1