This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Avoid redefinition warning
authorJarkko Hietaniemi <jhi@iki.fi>
Thu, 6 Sep 2001 13:51:16 +0000 (13:51 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Thu, 6 Sep 2001 13:51:16 +0000 (13:51 +0000)
Subroutine Cwd::fastcwd redefined at lib/XSLoader.pm line 97.
from
perl -w -Ilib -MCwd -e ''

p4raw-id: //depot/perl@11915

lib/Cwd.pm

index 88afca2..8b9a780 100644 (file)
@@ -168,6 +168,7 @@ if ($^O eq 'os2' && defined &sys_cwd && defined &sys_abspath) {
 
 eval {
     require XSLoader;
+    undef *Cwd::fastcwd; # avoid redefinition warning
     XSLoader::load('Cwd');
 };