This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Revert change 27818, as change 27853 fixes the real bug.
authorNicholas Clark <nick@ccl4.org>
Mon, 17 Apr 2006 12:07:23 +0000 (12:07 +0000)
committerNicholas Clark <nick@ccl4.org>
Mon, 17 Apr 2006 12:07:23 +0000 (12:07 +0000)
p4raw-id: //depot/perl@27862

sv.c

diff --git a/sv.c b/sv.c
index 429794f..e9f47dd 100644 (file)
--- 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)
                )