diff options
| author | Robert Spier <rspier@pobox.com> | 2000-12-12 16:12:39 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-12-13 16:39:02 +0000 |
| commit | 1f4f94f54707f6b6f968889b09e1660facfd0c3e (patch) | |
| tree | bcbbf349d7084f28e823201c6e7bdaa1c6dcbad7 /lib | |
| parent | 0d44d22b67bd4c0096169c76ee8a062b1fac7be7 (diff) | |
| download | perl-1f4f94f54707f6b6f968889b09e1660facfd0c3e.tar.gz | |
[20000615.005] [PATCH] Cwd::fastgetcwd broken (or mis-named?) on Unix
Message-ID: <14902.56087.678086.725773@rls.cx>
fastgetcwd is defined using a glob alias on a $^O dependent basis -
and there was no default assignment or perl subroutine.
p4raw-id: //depot/perl@8098
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Cwd.pm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lib/Cwd.pm b/lib/Cwd.pm index 840e2a6078..4a263cd5fa 100644 --- a/lib/Cwd.pm +++ b/lib/Cwd.pm @@ -70,7 +70,7 @@ use strict; use Carp; -our $VERSION = '2.03'; +our $VERSION = '2.04'; use base qw/ Exporter /; our @EXPORT = qw(cwd getcwd fastcwd fastgetcwd); @@ -99,6 +99,9 @@ unless(defined &cwd) { } } +# set a reasonable (and very safe) default for fastgetcwd, in case it +# isn't redefined later (20001212 rspier) +*fastgetcwd = \&cwd; # By Brandon S. Allbery # |