Fix File::Copy test failure on Windows

Failure was introduced by 43ddfa5614 which looks for a warning message from
code that isn't run on Windows.

diff --git a/lib/File/Copy.pm b/lib/File/Copy.pm
index b5ca436..fd7403d 100644 (file)
--- a/lib/File/Copy.pm
+++ b/lib/File/Copy.pm
@@ -148,6 +148,10 @@ sub copy {
            }
        }
     }
+    elsif (_eq($from, $to)) {
+       carp("'$from' and '$to' are identical (not copied)");
+       return 0;
+    }
 
     if (defined &syscopy && !$Syscopy_is_copy
        && !$to_a_handle