From 30c8d9e411f7375ddf81a32aa625d6c0e0c39091 Mon Sep 17 00:00:00 2001 From: Nicholas Clark Date: Mon, 17 Apr 2006 12:07:23 +0000 Subject: [PATCH] Revert change 27818, as change 27853 fixes the real bug. p4raw-id: //depot/perl@27862 --- sv.c | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/sv.c b/sv.c index 429794f..e9f47dd 100644 --- a/sv.c +++ b/sv.c @@ -12101,10 +12101,8 @@ S_find_uninit_var(pTHX_ OP* obase, SV* uninit_sv, bool match) * or are optimized away, then it's unambiguous */ o2 = NULL; for (kid=o; kid; kid = kid->op_sibling) { - SV *sv; if (kid && - ( (kid->op_type == OP_CONST && (sv = cSVOPx_sv(kid)) - && SvOK(sv)) + ( (kid->op_type == OP_CONST && SvOK(cSVOPx_sv(kid))) || (kid->op_type == OP_NULL && ! (kid->op_flags & OPf_KIDS)) || (kid->op_type == OP_PUSHMARK) ) -- 2.7.4