[perl #29127] scalar delete of empty slice returned garbage

p4raw-id: //depot/perl@22775

1 files changed, 4 insertions, 1 deletions

diff --git a/pp.c b/pp.c
index a3e56d3ff6..4ce78678db 100644
--- a/pp.c
+++ b/pp.c
@@ -3795,7 +3795,10 @@ PP(pp_delete)
 	    SP = ORIGMARK;
 	else if (gimme == G_SCALAR) {
 	    MARK = ORIGMARK;
-	    *++MARK = *SP;
+	    if (SP > MARK)
+		*++MARK = *SP;
+	    else
+		*++MARK = &PL_sv_undef;
 	    SP = MARK;
 	}
     }