From: Jay Rogers <jay@rgrs.com>
Date: Thu, 31 Jul 1997 01:11:29 +0000 (+1200)
Subject: perl debugger, win32, and emacs
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=96774cc9e0d4678381758886734d521b879a91fd;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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;