Change PL_debug behaviour so that string eval lines are saved whenever

a subroutine is defined, even if the eval'd string has subsequent
syntax errors. This allows the debugger to single step into these
subroutines.

p4raw-id: //depot/perl@34986

1 files changed, 3 insertions, 1 deletions

diff --git a/pp_ctl.c b/pp_ctl.c
index 5096b3a426..e9b4bfc79c 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -3739,7 +3739,9 @@ PP(pp_entereval)
     } else {
 	/* We have already left the scope set up earler thanks to the LEAVE
 	   in doeval().  */
-	if (PERLDB_SAVESRC_INVALID) {
+	if (was != PL_breakable_sub_gen /* Some subs defined here. */
+	    ? (PERLDB_LINE || PERLDB_SAVESRC)
+	    :  PERLDB_SAVESRC_INVALID) {
 	    /* Retain the filegv we created.  */
 	} else {
 	    (void)hv_delete(PL_defstash, tmpbuf, len, G_DISCARD);