diff options
Diffstat (limited to 'lib/File/Copy.pm')
-rw-r--r-- | lib/File/Copy.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/File/Copy.pm b/lib/File/Copy.pm index 08da5e5d31..d2152ca460 100644 --- a/lib/File/Copy.pm +++ b/lib/File/Copy.pm @@ -37,7 +37,7 @@ my $macfiles; 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 { |