Change 17852: File::Copy should only warn if there's something to warn about

Change 17852 by pudge@pudge-mobile on 2002/09/08 04:32:53

	File::Copy should only warn if there's something to warn about

Affected files ...

.... //depot/maint-5.6/macperl/lib/File/Copy.pm#4 edit

Differences ...

==== //depot/maint-5.6/macperl/lib/File/Copy.pm#4 (text) ====
Index: macperl/lib/File/Copy.pm
--- macperl/lib/File/Copy.pm#3~16473~	Tue May  7 20:52:28 2002
+++ macperl/lib/File/Copy.pm	Sat Sep  7 21:32:53 2002
@@ -35,7 +35,7 @@
 if ($^O eq 'MacOS') {
 	$macfiles = eval { require Mac::MoreFiles };
 	warn 'Mac::MoreFiles could not be loaded; using non-native syscopy'
-		if $^W;
+		if $@ && $^W;
 }
 
 sub _catname {
End of Patch.