Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!tut.cis.ohio-state.edu!ucbvax!iwarp.intel.com!news
From: merlyn@iwarp.intel.com (Randal Schwartz)
Newsgroups: comp.lang.perl
Subject: But mine doesn't fail? (was Re: perl and pttys)
Keywords: ptty
Message-ID: <1990Mar20.012137.4194@iwarp.intel.com>
Date: 20 Mar 90 01:21:37 GMT
References: <8069@ogicse.ogi.edu> <37098@mips.mips.COM> <37118@mips.mips.COM> <1990Mar19.235021.19961@tc.fluke.COM>
Sender: news@iwarp.intel.com
Reply-To: merlyn@iwarp.intel.com (Randal Schwartz)
Organization: Stonehenge; netaccess via Intel, Beaverton, Oregon, USA
Lines: 50
In-Reply-To: inc@tc.fluke.COM (Gary Benson)

In article <1990Mar19.235021.19961@tc.fluke.COM>, inc@tc (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.

I use perl -d all the time inside GNU Emacs (18.55), so I suspect the
problem is OS-specific.  How about elaborating on your configurations
under which it fails?

Mine works under Sunos4.0.3 on sun3's and sun4's with Perl 3.0
patchlevel 15.  For example, here's the transcript of a "Perlshell"
started with -de 0:

| *** Input ***
| perl -de 0
| *** Output ***
| 
| Loading DB from perldb.pl 3.0.1.2 90/03/12
| 
| main(1):	0
|   DB<1> p `tty`
| /dev/ttyp5
| 
|   DB<2>  @x=stat("/dev/ttyp5"); print "@x";
| 2560 2120 8630 1 0 0 5125 0 636424069 636424076 636424076 8192 0
|   DB<3>  @y=stat(STDOUT); print "@y";
| 2560 2120 8630 1 0 0 5125 0 636424069 637895457 637895457 8192 0
|   DB<4> p $];
| $Header: perly.c,v 3.0.1.4 90/02/28 18:06:41 lwall Locked $
| Patch level: 15
| 
|   DB<5> q
| 
| 
| *** Mon Mar 19 17:11:16 1990: finished ***

$_=',Pr0e=kRcza0hb 5lOr+e"PE :rBe}hRtho]nhaj nt.s[u=J@';s/../unshift(a,$&)/eg;chop(@a);print@a;
-- 
/=Randal L. Schwartz, Stonehenge Consulting Services (503)777-0095 ==========\
| on contract to Intel's iWarp project, Beaverton, Oregon, USA, Sol III      |
| merlyn@iwarp.intel.com ...!any-MX-mailer-like-uunet!iwarp.intel.com!merlyn |
\=Cute Quote: "Welcome to Portland, Oregon, home of the California Raisins!"=/