diff options
| author | Alexander Smishlajev <als@turnhere.com> | 1999-04-25 17:58:29 +0300 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-05-10 04:39:15 +0000 |
| commit | 8736538c3cff6585c95a01b990d3b3a9e5d5744d (patch) | |
| tree | a62ec1da701a15abcbfdff76f248259b80548f1a /lib | |
| parent | 3eeba6fb8b434fcb27f601771baa0ea98f44d487 (diff) | |
| download | perl-8736538c3cff6585c95a01b990d3b3a9e5d5744d.tar.gz | |
cygwin32 update (untested adaptation of patch against 5.005_03)
Message-ID: <37230365.5F68B460@turnhere.com>
Subject: [PATCH]5.005_03 (CORE) cygwin32 port
p4raw-id: //depot/perl@3358
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Cwd.pm | 2 | ||||
| -rw-r--r-- | lib/ExtUtils/MakeMaker.pm | 4 | ||||
| -rw-r--r-- | lib/perl5db.pl | 5 |
3 files changed, 10 insertions, 1 deletions
diff --git a/lib/Cwd.pm b/lib/Cwd.pm index 655782145b..df40649a42 100644 --- a/lib/Cwd.pm +++ b/lib/Cwd.pm @@ -209,6 +209,8 @@ 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): $!"; diff --git a/lib/ExtUtils/MakeMaker.pm b/lib/ExtUtils/MakeMaker.pm index 430462bea0..95477fa9c4 100644 --- a/lib/ExtUtils/MakeMaker.pm +++ b/lib/ExtUtils/MakeMaker.pm @@ -70,6 +70,7 @@ $Is_VMS = $^O eq 'VMS'; $Is_OS2 = $^O eq 'os2'; $Is_Mac = $^O eq 'MacOS'; $Is_Win32 = $^O eq 'MSWin32'; +$Is_Cygwin= $^O =~ /cygwin/i; require ExtUtils::MM_Unix; @@ -86,6 +87,9 @@ if ($Is_Mac) { if ($Is_Win32) { require ExtUtils::MM_Win32; } +if ($Is_Cygwin) { + require ExtUtils::MM_Cygwin; +} # The SelfLoader would bring a lot of overhead for MakeMaker, because # we know for sure we will use most of the autoloaded functions once diff --git a/lib/perl5db.pl b/lib/perl5db.pl index 18196278d9..f6b0ecbc95 100644 --- a/lib/perl5db.pl +++ b/lib/perl5db.pl @@ -296,7 +296,10 @@ if ($notty) { #require Term::ReadLine; - if (-e "/dev/tty") { + if ($^O =~ /cygwin/) { + # /dev/tty is binary. use stdin for textmode + undef $console; + } elsif (-e "/dev/tty") { $console = "/dev/tty"; } elsif ($^O eq 'dos' or -e "con" or $^O eq 'MSWin32') { $console = "con"; |