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 (file)
--- 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";