=cut
@ISA = qw(Exporter);
-@EXPORT = qw(cwd getcwd fastcwd);
+@EXPORT = qw(cwd getcwd fastcwd fastgetcwd);
@EXPORT_OK = qw(chdir);
# use strict;
*cwd = \&_vms_pwd;
*getcwd = \&_vms_pwd;
+ *fastcwd = \&_vms_cwd;
*fastgetcwd = \&_vms_cwd;
}
elsif ($osname eq 'NT') {