From afbdaceadfb4213678022d323a8d1b3cea560a4a Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Sat, 23 Mar 2002 03:05:11 +0000 Subject: [PATCH 1/1] Purify: #15434 got the test the wrong. (Is there an approved way of testing "is this an unop"?) p4raw-id: //depot/perl@15439 --- op.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/op.c b/op.c index 1c88bba..82c9b02 100644 --- a/op.c +++ b/op.c @@ -5971,7 +5971,7 @@ Perl_ck_fun(pTHX_ OP *o) OP *newop = newGVOP(OP_GV, 0, gv_fetchpv(SvPVx(((SVOP*)kid)->op_sv, n_a), TRUE, SVt_PVIO) ); - if ((o->op_flags & OPf_KIDS) && + if (!(o->op_private & 1) && /* if not unop */ kid == cLISTOPo->op_last) cLISTOPo->op_last = newop; op_free(kid); -- 1.8.3.1