diff options
Diffstat (limited to 'lib/Cwd.pm')
-rw-r--r-- | lib/Cwd.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Cwd.pm b/lib/Cwd.pm index 6952411ca2..048842b4ac 100644 --- a/lib/Cwd.pm +++ b/lib/Cwd.pm @@ -339,13 +339,13 @@ sub _os2_cwd { } sub _win32_cwd { - $ENV{'PWD'} = Win32::GetCurrentDirectory(); + $ENV{'PWD'} = Win32::GetCwd(); $ENV{'PWD'} =~ s:\\:/:g ; return $ENV{'PWD'}; } *_NT_cwd = \&_win32_cwd if (!defined &_NT_cwd && - defined &Win32::GetCurrentDirectory); + defined &Win32::GetCwd); *_NT_cwd = \&_os2_cwd unless defined &_NT_cwd; |