Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!uunet!mcsun!hp4nl!mhres!squirrel!pronto!jv
From: jv@mh.nl (Johan Vromans)
Newsgroups: comp.lang.perl
Subject: Re: Latest perldb.pl, as far as I know
Message-ID: <1991Feb15.151754.9219@pronto.mh.nl>
Date: 15 Feb 91 15:17:54 GMT
References: <1991Feb14.165208.6684@uvaarpa.Virginia.EDU>
Sender: jv@pronto.mh.nl (Johan Vromans)
Reply-To: Johan Vromans <jv@mh.nl>
Organization: Multihouse Automation, the Netherlands
Lines: 38


In article <1991Feb14.165208.6684@uvaarpa.Virginia.EDU> worley@compass.com (Dale Worley) writes:

> Since I've gotten a number of requests for this, I figured that I
> would post it.  It supports debugging from Emacs with M-x perldb.

I like a bit of feedback:

*** perldb.pl~	Fri Feb 15 10:55:15 1991
--- perldb.pl	Fri Feb 15 16:11:09 1991
***************
*** 58,64 ****
  shift(@main'ARGV) if $emacs;
  
  $header =~ s/.Header: ([^,]+),v(\s+\S+\s+\S+).*$/$1$2/;
! print OUT "\nLoading DB routines from $header\n\nEnter h for help.\n\n";
  
  sub DB {
      &save;
--- 58,68 ----
  shift(@main'ARGV) if $emacs;
  
  $header =~ s/.Header: ([^,]+),v(\s+\S+\s+\S+).*$/$1$2/;
! print OUT "\nLoading DB routines from $header\n";
! print OUT ("Emacs support ",
! 	   $emacs ? "enabled" : "available",
! 	   ".\n");
! print OUT "\nEnter h for help.\n\n";
  
  sub DB {
      &save;

--
-- 
Johan Vromans				       jv@mh.nl via internet backbones
Multihouse Automatisering bv		       uucp: ..!{uunet,hp4nl}!mh.nl!jv
Doesburgweg 7, 2803 PL Gouda, The Netherlands  phone/fax: +31 1820 62911/62500
------------------------ "Arms are made for hugging" -------------------------