From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 6 Sep 2001 13:51:16 +0000 (+0000)
Subject: Avoid redefinition warning
X-Git-Tag: accepted/trunk/20130322.191538~30381
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=716e3b8c0c8bbed515ed9bf0db90423d663bb79b;p=platform%2Fupstream%2Fperl.git

Avoid redefinition warning
Subroutine Cwd::fastcwd redefined at lib/XSLoader.pm line 97.
from
perl -w -Ilib -MCwd -e ''

p4raw-id: //depot/perl@11915
---

diff --git a/lib/Cwd.pm b/lib/Cwd.pm
index 88afca2..8b9a780 100644
--- 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;
+    undef *Cwd::fastcwd; # avoid redefinition warning
     XSLoader::load('Cwd');
 };