home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / perl502b.zip / OS2 / contrib < prev    next >
Text File  |  1995-04-18  |  3KB  |  84 lines
  1. 
  2. From math.ohio-state.edu!ilya Mon Dec 26 23:57:51 1994 remote from ananke
  3. Received:  from delos by ananke.s.bawue.de (UUPC/extended 1.12j) with UUCP
  4.            for ak; Mon, 26 Dec 1994 23:57:51 +0100
  5. Received: from monk.mps.ohio-state.edu by delos.s.bawue.de with smtp
  6.     (Smail3.1.28.1 #3) id m0rM7QX-000BHXC; Mon, 26 Dec 94 05:52 MET
  7. Received: (from ilya@localhost) by monk.mps.ohio-state.edu (8.6.9/8.6.9) id XAA08584 for ak@ananke.s.bawue.de; Sun, 25 Dec 1994 23:54:23 -0500
  8. From: Ilya Zakharevich <ilya@math.ohio-state.edu>
  9. Message-Id: <199412260454.XAA08584@monk.mps.ohio-state.edu>
  10. Subject: Re: perl5/os2
  11. To: ak@ananke.s.bawue.de (Andreas Kaiser)
  12. Date: Sun, 25 Dec 1994 23:54:23 -0500 (EST)
  13. In-Reply-To: <2ef48d8d.ananke@ananke.s.bawue.de> from "Andreas Kaiser" at Dec 18, 94 08:29:17 pm
  14. X-Mailer: ELM [version 2.4 PL24]
  15. MIME-Version: 1.0
  16. Content-Type: text/plain; charset=US-ASCII
  17. Content-Transfer-Encoding: 7bit
  18. Content-Length: 1926      
  19. Status: RO
  20.  
  21. > 
  22. > > F:\ckermit\get\perl5os2\os2>perl5 -de 0
  23. > > Out of memory!
  24. > 
  25. > I did not test the Perl debugger before. Right today I did. Same here.
  26. > You seem to have a lot of patience (or not enough paging space ;-). 
  27. > 
  28. > Fixed now (-c "/dev/con" now returns true). As an interim fix, edit
  29. > perldb.pl and unconditionally set $console to "/dev/con".
  30. > 
  31. > > By the way, probably you do know: gdb can work inside emacs, other
  32. > > programs do not (in OS/2). Probably there is some hack in gdb to do
  33. > > it. Is it managable to do the same with perldb?
  34. > 
  35. > I don't know. I rarely use emacs, ask the "emacs community".
  36. > 
  37. >         Gruss, Andreas Kaiser
  38. > 
  39.  
  40. My patch follows. As writer of PMEmacs says, there is no way to send
  41. output to emacs if a program is executed "in the buffer", but there
  42. was redirection on the command line. However, if there is no
  43. redirection, then the only way is to use STDOUT and STDIN. Moreover,
  44. my patch hase a slightly better chance of making it to the standard
  45. distribution. 
  46.  
  47. *** F:/ckermit/get/lib/perl5db.pl    Tue Oct 11 08:36:22 1994
  48. --- perl5db.pl    Wed Dec 21 11:15:38 1994
  49. ***************
  50. *** 29,34 ****
  51. --- 29,46 ----
  52.       $console = "sys\$command";
  53.       $rcfile="perldb.ini";
  54.   }
  55. + # Is Perl being run from Emacs?
  56. + $emacs = $main::ARGV[0] eq '-emacs';
  57. + shift(@main::ARGV) if $emacs;
  58. + 
  59. + # Around a bug:
  60. + if (defined $ENV{'OS2_SHELL'}) { # In OS/2
  61. +   if ($emacs) {
  62. +     $console = undef;
  63. +   } else {
  64. +     $console = "/dev/con";
  65. +   }
  66. + }
  67.   
  68.   open(IN, "<$console") || open(IN,  "<&STDIN");    # so we don't dingle stdin
  69.   open(OUT,">$console") || open(OUT, ">&STDERR")
  70. ***************
  71. *** 38,47 ****
  72.   select(STDOUT);
  73.   $| = 1;                # for real STDOUT
  74.   $sub = '';
  75. - 
  76. - # Is Perl being run from Emacs?
  77. - $emacs = $main::ARGV[0] eq '-emacs';
  78. - shift(@main::ARGV) if $emacs;
  79.   
  80.   $header =~ s/.Header: ([^,]+),v(\s+\S+\s+\S+).*$/$1$2/;
  81.   print OUT "\nLoading DB routines from $header\n";
  82. --- 50,55 ----
  83.  
  84.