diff options
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Cwd.pm | 8 | ||||
| -rw-r--r-- | lib/ExtUtils/MM_Cygwin.pm | 5 |
2 files changed, 11 insertions, 2 deletions
diff --git a/lib/Cwd.pm b/lib/Cwd.pm index df40649a42..8a99da975a 100644 --- a/lib/Cwd.pm +++ b/lib/Cwd.pm @@ -209,8 +209,6 @@ sub abs_path my $start = @_ ? shift : '.'; my($dotdots, $cwd, @pst, @cst, $dir, @tst); - return cwd() if ( $^O =~ /cygwin/ ); - unless (@cst = stat( $start )) { carp "stat($start): $!"; @@ -374,6 +372,12 @@ sub _qnx_abs_path { *abs_path = \&_qnx_abs_path; *fast_abs_path = \&_qnx_abs_path; } + elsif ($^O =~ /cygwin/) { + *getcwd = \&cwd; + *fastgetcwd = \&cwd; + *fastcwd = \&cwd; + *abs_path = \&fast_abs_path; + } } # package main; eval join('',<DATA>) || die $@; # quick test diff --git a/lib/ExtUtils/MM_Cygwin.pm b/lib/ExtUtils/MM_Cygwin.pm index ffc72e349f..df4ae5983a 100644 --- a/lib/ExtUtils/MM_Cygwin.pm +++ b/lib/ExtUtils/MM_Cygwin.pm @@ -115,3 +115,8 @@ replaces strings '::' with '.' in man page names =item perl_archive points to libperl.a + +=back + +=cut + |