From: Nicholas Clark <nick@ccl4.org>
Date: Mon, 17 Apr 2006 12:07:23 +0000 (+0000)
Subject: Revert change 27818, as change 27853 fixes the real bug.
X-Git-Tag: accepted/trunk/20130322.191538~17910
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=30c8d9e411f7375ddf81a32aa625d6c0e0c39091;p=platform%2Fupstream%2Fperl.git

Revert change 27818, as change 27853 fixes the real bug.

p4raw-id: //depot/perl@27862
---

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)
 		)