Re: [perl #21765] $s = ""; $n = @a = split(/,/, $s); results in undef $n

Message-ID: <u+ii+gzkgqkV092yn@efn.org>

p4raw-id: //depot/perl@19135

1 files changed, 4 insertions, 6 deletions

diff --git a/pp.c b/pp.c
index 79855994b0..1bbe8955e7 100644
--- a/pp.c
+++ b/pp.c
@@ -4778,12 +4778,10 @@ PP(pp_split)
 	if (gimme == G_ARRAY)
 	    RETURN;
     }
-    if (iters || !pm->op_pmreplroot) {
-	GETTARGET;
-	PUSHi(iters);
-	RETURN;
-    }
-    RETPUSHUNDEF;
+
+    GETTARGET;
+    PUSHi(iters);
+    RETURN;
 }
 
 PP(pp_lock)