summaryrefslogtreecommitdiff
path: root/ext/POSIX/POSIX.pm
diff options
context:
space:
mode:
Diffstat (limited to 'ext/POSIX/POSIX.pm')
-rw-r--r--ext/POSIX/POSIX.pm9
1 files changed, 8 insertions, 1 deletions
diff --git a/ext/POSIX/POSIX.pm b/ext/POSIX/POSIX.pm
index 33dc73d8f2..32010d62e0 100644
--- a/ext/POSIX/POSIX.pm
+++ b/ext/POSIX/POSIX.pm
@@ -827,7 +827,14 @@ sub fork {
sub getcwd
{
usage "getcwd()" if @_ != 0;
- chop($cwd = `pwd`);
+ if ($^O eq 'MSWin32') {
+ # this perhaps applies to everyone else also?
+ require Cwd;
+ $cwd = &Cwd::cwd;
+ }
+ else {
+ chop($cwd = `pwd`);
+ }
$cwd;
}