X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCwd.pm;h=1a85d673f7b129f96cdaea56f396699283c3c301;hb=2d3232d7d747c33b17a2f963786d0f00484dbad2;hp=755c7a77959220706f2f028fd773f9c31e48f425;hpb=ff235dd6d6f5e19e11c9202d4a82fb8e5fbadadd;p=p5sagit%2Fp5-mst-13.2.git diff --git a/lib/Cwd.pm b/lib/Cwd.pm index 755c7a7..1a85d67 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('.');