perl 5.002gamma: lib/ExtUtils/MakeMaker.pm

[p5sagit/p5-mst-13.2.git] / lib / Cwd.pm

diff --git a/lib/Cwd.pm b/lib/Cwd.pm
index 2636fd2..bc206db 100644 (file)
--- a/lib/Cwd.pm
+++ b/lib/Cwd.pm
@@ -31,7 +31,7 @@ getcwd - get pathname of current working directory
 The getcwd() function re-implements the getcwd(3) (or getwd(3)) functions
 in Perl.
 
-The fastgetcwd() function looks the same as getcwd(), but runs faster.
+The fastcwd() function looks the same as getcwd(), but runs faster.
 It's also more dangerous because you might conceivably chdir() out of a
 directory that you can't chdir() back into.
 
@@ -49,7 +49,7 @@ kept up to date it all packages which use chdir import it from Cwd.
 =cut
 
 @ISA = qw(Exporter);
-@EXPORT = qw(cwd getcwd fastcwd);
+@EXPORT = qw(cwd getcwd fastcwd fastgetcwd);
 @EXPORT_OK = qw(chdir);
 
 # use strict;
@@ -251,6 +251,7 @@ if ($osname eq 'VMS') {
 
     *cwd        = \&_vms_pwd;
     *getcwd     = \&_vms_pwd;
+    *fastcwd    = \&_vms_cwd;
     *fastgetcwd = \&_vms_cwd;
 }
 elsif ($osname eq 'NT') {