[perl #17683] [PATCH] Fixes segfault in pdb

[Jürgen]

# New Ticket Created by  Jürgen Bömmels 
# Please include the string:  [perl #17683]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt2/Ticket/Display.html?id=17683 >


Hi,

When you use pdb and hit just <ENTER> you get a segfault. Thats quite
anoying especially if you are used to gdbs behaviour.

The attached patch fixes this by just ignoring empty lines.

bye
b.



-- attachment  1 ------------------------------------------------------
url: http://rt.perl.org/rt2/attach/38900/31614/ec6c32/debug.diff


Index: debug.c
===================================================================
RCS file: /cvs/public/parrot/debug.c,v
retrieving revision 1.38
diff -u -r1.38 debug.c
--- debug.c	14 Sep 2002 13:51:34 -0000	1.38
+++ debug.c	29 Sep 2002 18:17:22 -0000
@@ -250,11 +250,14 @@
     int i;
     unsigned long c;
 
-    /* Skip trailing spaces */
+    /* Skip leading spaces */
     command = skip_ws(command);
 
     /* get a number from what the user typed */
     command = parse_command(command, &c);
+
+    /* empty commands are ignored silently */
+    if (!command) return;
 
     na(command);