From: Nicholas Clark <nick@ccl4.org>
Date: Mon, 8 Nov 2010 14:43:29 +0000 (+0000)
Subject: Avoid a declaration after statement, accidentally added by 6079961fee8cf49c.
X-Git-Tag: v5.13.7~186
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/9fdb8483d0df6457614b48340fce3eac629b436d

Avoid a declaration after statement, accidentally added by 6079961fee8cf49c.

Code in ext/ isn't subject to the same compiler warnings regime as the
top-level core files, hence why this was missed.
---

diff --git a/ext/B/B.xs b/ext/B/B.xs
index 54bde19..a58ff00 100644
--- a/ext/B/B.xs
+++ b/ext/B/B.xs
@@ -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));