diff options
| author | David Mitchell <davem@iabyn.com> | 2011-02-04 16:13:51 +0000 |
|---|---|---|
| committer | David Mitchell <davem@iabyn.com> | 2011-02-06 21:34:43 +0000 |
| commit | ec91163905621041ab51a01ae08a4f6818dbf6f3 (patch) | |
| tree | 75110e030e5d443279acb9787386a3f8c9e4de9a /pp_hot.c | |
| parent | 61f4bfbf9d4e374c190a1a11f9bf2f09e7450187 (diff) | |
| download | perl-ec91163905621041ab51a01ae08a4f6818dbf6f3.tar.gz | |
pp_substr: combine two identical blocks of code
Diffstat (limited to 'pp_hot.c')
| -rw-r--r-- | pp_hot.c | 11 |
1 files changed, 2 insertions, 9 deletions
@@ -2226,15 +2226,8 @@ PP(pp_subst) && (!doutf8 || SvUTF8(TARG))) { if (!matched) - { - SPAGAIN; - if (rpm->op_pmflags & PMf_NONDESTRUCT) - PUSHs(TARG); - else - PUSHs(&PL_sv_no); - LEAVE_SCOPE(oldsave); - RETURN; - } + goto ret_no; + #ifdef PERL_OLD_COPY_ON_WRITE if (SvIsCOW(TARG)) { assert (!force_on_match); |