summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/Cwd.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Cwd.pm')
-rw-r--r--Master/tlpkg/tlperl/lib/Cwd.pm13
1 files changed, 10 insertions, 3 deletions
diff --git a/Master/tlpkg/tlperl/lib/Cwd.pm b/Master/tlpkg/tlperl/lib/Cwd.pm
index a5e2cda932b..4683e103b82 100644
--- a/Master/tlpkg/tlperl/lib/Cwd.pm
+++ b/Master/tlpkg/tlperl/lib/Cwd.pm
@@ -129,7 +129,7 @@ it from Cwd.
=item *
-Since the path seperators are different on some operating systems ('/'
+Since the path separators are different on some operating systems ('/'
on Unix, ':' on MacPerl, etc...) we recommend you use the File::Spec
modules wherever portability is a concern.
@@ -171,7 +171,7 @@ use strict;
use Exporter;
use vars qw(@ISA @EXPORT @EXPORT_OK $VERSION);
-$VERSION = '3.31';
+$VERSION = '3.36';
my $xs_version = $VERSION;
$VERSION = eval $VERSION;
@@ -747,6 +747,13 @@ sub _os2_cwd {
return $ENV{'PWD'};
}
+sub _win32_cwd_simple {
+ $ENV{'PWD'} = `cd`;
+ chomp $ENV{'PWD'};
+ $ENV{'PWD'} =~ s:\\:/:g ;
+ return $ENV{'PWD'};
+}
+
sub _win32_cwd {
if (eval 'defined &DynaLoader::boot_DynaLoader') {
$ENV{'PWD'} = Win32::GetCwd();
@@ -758,7 +765,7 @@ sub _win32_cwd {
return $ENV{'PWD'};
}
-*_NT_cwd = defined &Win32::GetCwd ? \&_win32_cwd : \&_os2_cwd;
+*_NT_cwd = defined &Win32::GetCwd ? \&_win32_cwd : \&_win32_cwd_simple;
sub _dos_cwd {
if (!defined &Dos::GetCwd) {