Avoid redefinition warning

[perl5.git] / lib / Cwd.pm

diff --git a/lib/Cwd.pm b/lib/Cwd.pm
index 88afca2..8b9a780 100644 (file)
--- a/lib/Cwd.pm
+++ b/lib/Cwd.pm
@@ -168,6 +168,7 @@ if ($^O eq 'os2' && defined &sys_cwd && defined &sys_abspath) {
 
 eval {
     require XSLoader;
 
 eval {
     require XSLoader;

+    undef *Cwd::fastcwd; # avoid redefinition warning

     XSLoader::load('Cwd');
 };
 
     XSLoader::load('Cwd');
 };