1 files changed, 6 insertions, 2 deletions
diff --git a/pp.c b/pp.c
index 7fa9c06933..d7fc6bfc52 100644
--- a/pp.c
+++ b/pp.c
@@ -4611,8 +4611,12 @@ PP(pp_split)
 	iters++;
     }
     else if (!origlimit) {
-	while (iters > 0 && (!TOPs || !SvANY(TOPs) || SvCUR(TOPs) == 0))
-	    iters--, SP--;
+	while (iters > 0 && (!TOPs || !SvANY(TOPs) || SvCUR(TOPs) == 0)) {
+	    if (TOPs && !make_mortal)
+		sv_2mortal(TOPs);
+	    iters--;
+	    SP--;
+	}
     }
 
     if (realarray) {