From f126b75f4148fff81c891eb4f3eb7a4e6fca9ee3 Mon Sep 17 00:00:00 2001 From: Michael Witten Date: Fri, 8 Apr 2011 00:20:48 +0000 Subject: [PATCH] Perl_ck_split: Avoid unnecessary assignment Signed-off-by: Michael Witten --- op.c | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/op.c b/op.c index 8523739..0d4e1e6 100644 --- a/op.c +++ b/op.c @@ -8457,8 +8457,9 @@ Perl_ck_split(pTHX_ OP *o) Perl_croak(aTHX_ "panic: ck_split"); kid = kid->op_sibling; op_free(cLISTOPo->op_first); - cLISTOPo->op_first = kid; - if (!kid) { + if (kid) + cLISTOPo->op_first = kid; + else { cLISTOPo->op_first = kid = newSVOP(OP_CONST, 0, newSVpvs(" ")); cLISTOPo->op_last = kid; /* There was only one element previously */ } -- 1.8.3.1