Re-instate the old perl getcwd as _perl_getcwd, and use it if loading

the XS fails. (Needed to bootstrap the core build)

p4raw-id: //depot/perl@26319

diff --git a/lib/Cwd.pm b/lib/Cwd.pm
index 462f262..693d888 100644 (file)
--- a/lib/Cwd.pm
+++ b/lib/Cwd.pm
@@ -171,7 +171,7 @@ use strict;
 use Exporter;
 use vars qw(@ISA @EXPORT @EXPORT_OK $VERSION);
 
 use Exporter;
 use vars qw(@ISA @EXPORT @EXPORT_OK $VERSION);
 

-$VERSION = '3.14_01';
+$VERSION = '3.14_02';

 
 @ISA = qw/ Exporter /;
 @EXPORT = qw(cwd getcwd fastcwd fastgetcwd);
 
 @ISA = qw/ Exporter /;
 @EXPORT = qw(cwd getcwd fastcwd fastgetcwd);


@@ -361,6 +361,15 @@ unless ($METHOD_MAP{$^O}{cwd} or defined &cwd) {
 # isn't redefined later (20001212 rspier)
 *fastgetcwd = \&cwd;
 
 # isn't redefined later (20001212 rspier)
 *fastgetcwd = \&cwd;
 

+# By Brandon S. Allbery
+#
+# Usage: $cwd = getcwd();
+
+sub _perl_getcwd
+{
+    abs_path('.');
+}
+

 # By John Bazik
 #
 # Usage: $cwd = &fastcwd;
 # By John Bazik
 #
 # Usage: $cwd = &fastcwd;


@@ -704,6 +713,7 @@ if (exists $METHOD_MAP{$^O}) {
 
 # In case the XS version doesn't load.
 *abs_path = \&_perl_abs_path unless defined &abs_path;
 
 # In case the XS version doesn't load.
 *abs_path = \&_perl_abs_path unless defined &abs_path;

+*getcwd = \&_perl_getcwd unless defined &getcwd;

 
 # added function alias for those of us more
 # used to the libc function.  --tchrist 27-Jan-00
 
 # added function alias for those of us more
 # used to the libc function.  --tchrist 27-Jan-00