diff options
| -rw-r--r-- | lib/File/Copy.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/File/Copy.pm b/lib/File/Copy.pm index 57bf6a4c4a..1c72dfebbe 100644 --- a/lib/File/Copy.pm +++ b/lib/File/Copy.pm @@ -44,8 +44,8 @@ sub carp { sub _catname { my($from, $to) = @_; if (not defined &basename) { - require File::Basename; - import File::Basename 'basename'; + require File::Basename; + File::Basename->import( 'basename' ); } return File::Spec->catfile($to, basename($from)); |