diff options
| author | Paul "LeoNerd" Evans <leonerd@leonerd.org.uk> | 2021-12-09 18:36:53 +0000 |
|---|---|---|
| committer | Paul "LeoNerd" Evans <leonerd@leonerd.org.uk> | 2021-12-14 22:33:15 +0000 |
| commit | 4947ddbc6449aebe200588f40db1c719de0fbac1 (patch) | |
| tree | f3a141d37942aeaf5b6d6b50e1dcad709cfd034c | |
| parent | 6846383a6b921712f691063af9579b657821af35 (diff) | |
| download | perl-4947ddbc6449aebe200588f40db1c719de0fbac1.tar.gz | |
Fix indirect call of ->import
| -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)); |