diff options
| author | Perl 5 Porters <perl5-porters.nicoh.com> | 1996-01-02 03:28:57 +0000 |
|---|---|---|
| committer | Andy Dougherty <doughera.lafayette.edu> | 1996-01-02 03:28:57 +0000 |
| commit | e7ae011613ab9e1683332421cf9ea7b4c5e94c94 (patch) | |
| tree | 174c9adb8397ef3a1225cc07899e9c8b6814680d /lib/Cwd.pm | |
| parent | c1bce5d7c4f10bb970b094ec986540c244295278 (diff) | |
| download | perl-e7ae011613ab9e1683332421cf9ea7b4c5e94c94.tar.gz | |
VMS patches.
Diffstat (limited to 'lib/Cwd.pm')
| -rw-r--r-- | lib/Cwd.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/Cwd.pm b/lib/Cwd.pm index a627354f1b..bc206db4d4 100644 --- a/lib/Cwd.pm +++ b/lib/Cwd.pm @@ -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') { |