This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Debugger patch
authorIlya Zakharevich <ilya@math.ohio-state.edu>
Fri, 21 Feb 1997 07:37:59 +0000 (02:37 -0500)
committerChip Salzenberg <chip@atlantic.net>
Fri, 21 Feb 1997 16:41:00 +0000 (04:41 +1200)
private-msgid: <199702210737.CAA03951@monk.mps.ohio-state.edu>

lib/perl5db.pl

index 38ae297..a82888a 100644 (file)
@@ -1100,22 +1100,24 @@ sub sub {
     if (wantarray) {
        @ret = &$sub;
        $single |= pop(@stack);
-       print ($OUT "list context return from $sub:\n"), dumpit( \@ret ),
-         $doret = -2 if $doret eq $#stack;
        ($frame & 4 
         ? ( (print $LINEINFO ' ' x $#stack, "out "), 
             print_trace($LINEINFO, -1, 1, 1, "$sub$al") )
         : print $LINEINFO ' ' x $#stack, "exited $sub$al\n") if $frame & 2;
+       print ($OUT ($frame & 16 ? ' ' x $#stack : ""),
+                   "list context return from $sub:\n"), dumpit( \@ret ),
+         $doret = -2 if $doret eq $#stack or $frame & 16;
        @ret;
     } else {
        $ret = &$sub;
        $single |= pop(@stack);
-       print ($OUT "scalar context return from $sub: "), dumpit( $ret ),
-         $doret = -2 if $doret eq $#stack;
        ($frame & 4 
         ? ( (print $LINEINFO ' ' x $#stack, "out "), 
              print_trace($LINEINFO, -1, 1, 1, "$sub$al") )
         : print $LINEINFO ' ' x $#stack, "exited $sub$al\n") if $frame & 2;
+       print ($OUT ($frame & 16 ? ' ' x $#stack : ""),
+                   "scalar context return from $sub: "), dumpit( $ret ),
+         $doret = -2 if $doret eq $#stack or $frame & 16;
        $ret;
     }
 }