In debugger, don't reference %{$f{$g}} if $f{$g} doesn't exist

[p5sagit/p5-mst-13.2.git] / doop.c

diff --git a/doop.c b/doop.c
index f16ec64..7086a7b 100644 (file)
--- a/doop.c
+++ b/doop.c
@@ -1,6 +1,6 @@
 /*    doop.c
  *
- *    Copyright (c) 1991-1994, Larry Wall
+ *    Copyright (c) 1991-1997, Larry Wall
  *
  *    You may distribute under the terms of either the GNU General Public
  *    License or the Artistic License, as specified in the README file.
@@ -667,6 +667,9 @@ dARGS
 
     (void)hv_iterinit(hv);     /* always reset iterator regardless */
 
+    if (op->op_private & OPpLEAVE_VOID)
+       RETURN;
+
     if (GIMME != G_ARRAY) {
        I32 i;
        dTARGET;