Path: utzoo!utgpu!news-server.csri.toronto.edu!mailrus!cs.utexas.edu!usc!elroy.jpl.nasa.gov!jpl-devvax!lwall
From: lwall@jpl-devvax.JPL.NASA.GOV (Larry Wall)
Newsgroups: comp.lang.perl
Subject: Re: perl and pttys
Keywords: ptty
Message-ID: <7472@jpl-devvax.JPL.NASA.GOV>
Date: 20 Mar 90 01:53:47 GMT
References: <8069@ogicse.ogi.edu> <37098@mips.mips.COM> <37118@mips.mips.COM> <1990Mar19.235021.19961@tc.fluke.COM>
Reply-To: lwall@jpl-devvax.JPL.NASA.GOV (Larry Wall)
Organization: Jet Propulsion Laboratory, Pasadena, CA
Lines: 27

In article <1990Mar19.235021.19961@tc.fluke.COM> inc@tc.fluke.COM (Gary Benson) writes:
: The question was raised about using perl-d inside emacs.
: 
: I thought I had a way, but I don't. I regularly run perl scripts on emacs
: buffers, and it works really slick. I set a mark, advance to the area in
: question, and fast-filter-region {the script}. This works for the stuff I
: normally do, but when I set the -d, whoo-boy! I got knocked into the 0-zone.
: 
: It also fails if I set up a shell internal to emacs. I was hoping the debug
: messages would go to the shell window, but alas no. STDOUT it is, and I am
: not sufficiently emacs conversant to change that. I suppose one ramification
: is that any perl script that is talking to STDOUT will fail inside emacs.

Is the problem simply that perldb.pl can't open /dev/tty?  There are two
lines that say

open(IN,"/dev/tty");            # so we don't dingle stdin
open(OUT,">/dev/tty");  # so we don't dongle stdout

Try changing them to

open(IN, "</dev/tty") || open(IN, "<&STDIN");	# so we don't dingle stdin
open(OUT,">/dev/tty") || open(OUT,">&STDOUT");	# so we don't dongle stdout

and see if that makes any difference.

Larry