From: Gurusamy Sarathy <gsar@engin.umich.edu>
Date: Thu, 10 Apr 1997 21:42:13 +0000 (-0400)
Subject: win32: perl5db patch
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=56cbacacb6c634a626b06407cbd555bc1519a2d5;p=p5sagit%2Fp5-mst-13.2.git

win32: perl5db patch

The debugger doesn't work on win32 without this patch.
(You'd think C<-e> will work on pseudo devices like "CON",
but the _stat() in the C runtime doesn't cooperate).

p5p-msgid: 199704102142.RAA27396@aatma.engin.umich.edu
---

diff --git a/lib/perl5db.pl b/lib/perl5db.pl
index 9718fed..f38c3ff 100644
--- a/lib/perl5db.pl
+++ b/lib/perl5db.pl
@@ -285,7 +285,7 @@ if ($notty) {
 
   if (-e "/dev/tty") {
     $console = "/dev/tty";
-  } elsif (-e "con") {
+  } elsif (-e "con" or $^O eq 'MSWin32') {
     $console = "con";
   } else {
     $console = "sys\$command";