In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/b770e143548c6091e84d4ed5051d27d26e0f82e8?hp=339aac22c2768aa840858c042e33fbf04d4f51ed>
- Log ----------------------------------------------------------------- commit b770e143548c6091e84d4ed5051d27d26e0f82e8 Author: Nicholas Clark <[email protected]> Date: Thu Apr 15 14:03:08 2010 +0100 Fix code before statement error introduced by f410a2119920dd04. ----------------------------------------------------------------------- Summary of changes: pp_hot.c | 4 ++-- 1 files changed, 2 insertions(+), 2 deletions(-) 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) -- Perl5 Master Repository
