bogus assert()

p4raw-id: //depot/perl@2633

1 files changed, 2 insertions, 6 deletions

diff --git a/pp.c b/pp.c
index 44114e79f3..84ee4f4fca 100644
--- a/pp.c
+++ b/pp.c
@@ -2853,12 +2853,8 @@ PP(pp_splice)
 
     newlen = SP - MARK;
     diff = newlen - length;
-    if (newlen && !AvREAL(ary)) {
-	if (AvREIFY(ary))
-	    av_reify(ary);
-	else
-	    assert(AvREAL(ary));		/* would leak, so croak */
-    }
+    if (newlen && !AvREAL(ary) && AvREIFY(ary))
+	av_reify(ary);
 
     if (diff < 0) {				/* shrinking the area */
 	if (newlen) {