From: Gisle Aas <gisle@aas.no>
Date: Mon, 6 Jul 1998 13:08:53 +0000 (+0200)
Subject: added patch to fix Cwd.pm warnings, fixed a couple more places
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e79e61e4622b6e419b9c7736de49bd996a7c7e64;p=p5sagit%2Fp5-mst-13.2.git

added patch to fix Cwd.pm warnings, fixed a couple more places
	Message-ID: <m3af6nfd8a.fsf@furu.g.aas.no>
	Subject: [PATCH] 5.004_70 Cwd.pm now give warnings

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

diff --git a/lib/Cwd.pm b/lib/Cwd.pm
index 64798da..7febb0d 100644
--- a/lib/Cwd.pm
+++ b/lib/Cwd.pm
@@ -118,7 +118,7 @@ sub fastcwd {
     for (;;) {
 	my $direntry;
 	($odev, $oino) = ($cdev, $cino);
-	chdir('..') || return undef;
+	CORE::chdir('..') || return undef;
 	($cdev, $cino) = stat('.');
 	last if $odev == $cdev && $oino == $cino;
 	opendir(DIR, '.') || return undef;
@@ -139,7 +139,7 @@ sub fastcwd {
     # At this point $path may be tainted (if tainting) and chdir would fail.
     # To be more useful we untaint it then check that we landed where we started.
     $path = $1 if $path =~ /^(.*)$/;	# untaint
-    chdir($path) || return undef;
+    CORE::chdir($path) || return undef;
     ($cdev, $cino) = stat('.');
     die "Unstable directory path, current directory changed unexpectedly"
 	if $cdev != $orig_cdev || $cino != $orig_cino;
@@ -259,9 +259,9 @@ sub abs_path
 sub fast_abs_path {
     my $cwd = getcwd();
     my $path = shift || '.';
-    chdir($path) || croak "Cannot chdir to $path:$!";
+    CORE::chdir($path) || croak "Cannot chdir to $path:$!";
     my $realpath = getcwd();
-    chdir($cwd)  || croak "Cannot chdir back to $cwd:$!";
+    CORE::chdir($cwd)  || croak "Cannot chdir back to $cwd:$!";
     $realpath;
 }