From: Nicholas Clark <nick@ccl4.org>
Date: Thu, 15 Apr 2010 13:03:08 +0000 (+0100)
Subject: Fix code before statement error introduced by f410a2119920dd04.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b770e143548c6091e84d4ed5051d27d26e0f82e8;p=p5sagit%2Fp5-mst-13.2.git

Fix code before statement error introduced by f410a2119920dd04.
---

diff --git a/pp_hot.c b/pp_hot.c
index ff86b91..6224f3d 100644
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -2081,11 +2081,11 @@ PP(pp_subst)
     bool is_cow;
 #endif
     SV *nsv = NULL;
+    /* known replacement string? */
+    register SV *dstr = (pm->op_pmflags & PMf_CONST) ? POPs : NULL;
 
     PERL_ASYNC_CHECK();
 
-    /* known replacement string? */
-    register SV *dstr = (pm->op_pmflags & PMf_CONST) ? POPs : NULL;
     if (PL_op->op_flags & OPf_STACKED)
 	TARG = POPs;
     else if (PL_op->op_private & OPpTARGET_MY)