diff options
| author | Nicholas Clark <nick@ccl4.org> | 2010-04-15 14:03:08 +0100 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2010-04-15 14:03:08 +0100 |
| commit | b770e143548c6091e84d4ed5051d27d26e0f82e8 (patch) | |
| tree | 707a873671364abd6b2b78838280a86052f4197c /pp_hot.c | |
| parent | 339aac22c2768aa840858c042e33fbf04d4f51ed (diff) | |
| download | perl-b770e143548c6091e84d4ed5051d27d26e0f82e8.tar.gz | |
Fix code before statement error introduced by f410a2119920dd04.
Diffstat (limited to 'pp_hot.c')
| -rw-r--r-- | pp_hot.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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) |