projects
/
p5sagit/p5-mst-13.2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
More adjustments to the PERL5LIB docs by Rick
[p5sagit/p5-mst-13.2.git]
/
lib
/
Cwd.pm
diff --git
a/lib/Cwd.pm
b/lib/Cwd.pm
index
70aa811
..
cfc0294
100644
(file)
--- a/
lib/Cwd.pm
+++ b/
lib/Cwd.pm
@@
-660,7
+660,12
@@
sub _os2_cwd {
}
sub _win32_cwd {
- $ENV{'PWD'} = Win32::GetCwd();
+ if (defined &DynaLoader::boot_DynaLoader) {
+ $ENV{'PWD'} = Win32::GetCwd();
+ }
+ else { # miniperl
+ chomp($ENV{'PWD'} = `cd`);
+ }
$ENV{'PWD'} =~ s:\\:/:g ;
return $ENV{'PWD'};
}