diff options
author | Fifer, Eric <EFifer@sanwaint.com> | 1999-06-02 16:16:05 +0100 |
---|---|---|
committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-07-05 05:17:12 +0000 |
commit | 1cab015a482fdf2a2c78aa5bae65199be3b5e3c8 (patch) | |
tree | e02b004521f99ac1666a83c1a55c3d9d5e780236 /lib | |
parent | 16cebae21a82370677b73e4db793c726b3f4ff27 (diff) | |
download | perl-1cab015a482fdf2a2c78aa5bae65199be3b5e3c8.tar.gz |
cygwin32 update
Message-Id: <71E287AB0D94D111BBD600600849EC8185EDD9@POST>
Subject: [ID 19990602.003] perl5.005_03 (CORE) cygwin32 port
p4raw-id: //depot/perl@3582
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 + |