diff options
author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-07-12 08:49:17 +0000 |
---|---|---|
committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-07-12 08:49:17 +0000 |
commit | c47834cd2409d3680cf65095db9f9ea634e47197 (patch) | |
tree | b8add619967007ae90c83edd83e03ef6cc3c836e /lib/Cwd.pm | |
parent | 250d67eb8e42c118b44bb5437965a1f4a8a0d828 (diff) | |
download | perl-c47834cd2409d3680cf65095db9f9ea634e47197.tar.gz |
Upgrade to PathTools 3.19
p4raw-id: //depot/perl@28551
Diffstat (limited to 'lib/Cwd.pm')
-rw-r--r-- | lib/Cwd.pm | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/lib/Cwd.pm b/lib/Cwd.pm index 755c7a7795..1a85d673f7 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.18'; +$VERSION = '3.19'; @ISA = qw/ Exporter /; @EXPORT = qw(cwd getcwd fastcwd fastgetcwd); @@ -370,10 +370,8 @@ if ($^O eq 'cygwin') { # isn't redefined later (20001212 rspier) *fastgetcwd = \&cwd; -# By Brandon S. Allbery -# -# Usage: $cwd = getcwd(); - +# A non-XS version of getcwd() - also used to bootstrap the perl build +# process, when miniperl is running and no XS loading happens. sub _perl_getcwd { abs_path('.'); |