perl debugger, win32, and emacs

The following patch is necessary for the perl debugger to run under
emacs on a win32 machine.  The "or defined $ENV{EMACS}" is necessary
for the debugger to run under emacs shell-mode as well.

p5p-msgid: 199707311759.NAA13276@crooked-i.mitre.org

diff --git a/lib/perl5db.pl b/lib/perl5db.pl
index fbd36a0..469ebff 100644 (file)
--- a/lib/perl5db.pl
+++ b/lib/perl5db.pl
@@ -296,6 +296,10 @@ if ($notty) {
     $console = "sys\$command";
   }
 
+  if (($^O eq 'MSWin32') and ($emacs or defined $ENV{EMACS})) {
+    $console = undef;
+  }
+
   # Around a bug:
   if (defined $ENV{OS2_SHELL} and ($emacs or $ENV{WINDOWID})) { # In OS/2
     $console = undef;