diff options
| author | Nicholas Clark <nick@ccl4.org> | 2005-12-10 18:13:33 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2005-12-10 18:13:33 +0000 |
| commit | a7a23d71702876705a62edb89b892fca62cd448b (patch) | |
| tree | a4f0fdeafa390c553997ee82db78b65287f4cb65 /lib/Cwd.pm | |
| parent | fa52125f2139574b06ddadadf21b82bb93e6c77e (diff) | |
| download | perl-a7a23d71702876705a62edb89b892fca62cd448b.tar.gz | |
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
Diffstat (limited to 'lib/Cwd.pm')
| -rw-r--r-- | lib/Cwd.pm | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/lib/Cwd.pm b/lib/Cwd.pm index 462f262dc7..693d888148 100644 --- a/lib/Cwd.pm +++ b/lib/Cwd.pm @@ -171,7 +171,7 @@ use strict; 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); @@ -361,6 +361,15 @@ unless ($METHOD_MAP{$^O}{cwd} or defined &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; @@ -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; +*getcwd = \&_perl_getcwd unless defined &getcwd; # added function alias for those of us more # used to the libc function. --tchrist 27-Jan-00 |