This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Avoid a declaration after statement, accidentally added by 6079961fee8cf49c.
authorNicholas Clark <nick@ccl4.org>
Mon, 8 Nov 2010 14:43:29 +0000 (14:43 +0000)
committerNicholas Clark <nick@ccl4.org>
Mon, 8 Nov 2010 14:43:29 +0000 (14:43 +0000)
Code in ext/ isn't subject to the same compiler warnings regime as the
top-level core files, hence why this was missed.

ext/B/B.xs

index 54bde19..a58ff00 100644 (file)
@@ -1074,11 +1074,12 @@ PMOP_pmreplroot(o)
        B::PMOP         o
     CODE:
        if (o->op_type == OP_PUSHRE) {
-           ST(0) = sv_newmortal();
 #  ifdef USE_ITHREADS
+           ST(0) = sv_newmortal();
             sv_setiv(ST(0), o->op_pmreplrootu.op_pmtargetoff);
 #  else
            GV *const target = o->op_pmreplrootu.op_pmtargetgv;
+           ST(0) = sv_newmortal();
            sv_setiv(newSVrv(ST(0), target ?
                             svclassnames[SvTYPE((SV*)target)] : "B::SV"),
                     PTR2IV(target));