From e9d7a483027872dd114e87fb75bc9afabf60b654 Mon Sep 17 00:00:00 2001 From: Father Chrysostomos Date: Sat, 17 Dec 2011 23:44:42 -0800 Subject: [PATCH] =?utf8?q?Oops.=20=20You=20can=E2=80=99t=20do=20->op=5Ffir?= =?utf8?q?st=20on=20a=20baseop.?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit This was the fault of commit 8dc99089. --- op.c | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/op.c b/op.c index cfdf618..8fc6ea8 100644 --- a/op.c +++ b/op.c @@ -9689,11 +9689,12 @@ Perl_ck_substr(pTHX_ OP *o) OP * Perl_ck_tell(pTHX_ OP *o) { - OP *kid; PERL_ARGS_ASSERT_CK_TELL; o = ck_fun(o); - kid = cLISTOPo->op_first; - if (kid && kid->op_type == OP_RV2GV) kid->op_private |= OPpALLOW_FAKE; + if (o->op_flags & OPf_KIDS) { + OP *kid = cLISTOPo->op_first; + if (kid->op_type == OP_RV2GV) kid->op_private |= OPpALLOW_FAKE; + } return o; } -- 2.7.4