diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 1998-11-25 18:33:45 -0500 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-11-28 18:35:35 +0000 |
| commit | 22e551b9ed23de1d5af9977d67389142f4d41cc5 (patch) | |
| tree | 076d061e252db2b367185a92e907bc710c9bee7d /pp_ctl.c | |
| parent | f2ac83ee9b0351aafadde538d84d97d64ef7e570 (diff) | |
| download | perl-22e551b9ed23de1d5af9977d67389142f4d41cc5.tar.gz | |
Fix \G in REx without //g
Message-Id: <199811260433.XAA29281@monk.mps.ohio-state.edu>
p4raw-id: //depot/perl@2365
Diffstat (limited to 'pp_ctl.c')
| -rw-r--r-- | pp_ctl.c | 5 |
1 files changed, 3 insertions, 2 deletions
@@ -164,8 +164,9 @@ PP(pp_substcont) /* Are we done */ if (cx->sb_once || !CALLREGEXEC(rx, s, cx->sb_strend, orig, - s == m, Nullsv, NULL, - cx->sb_safebase ? 0 : REXEC_COPY_STR)) + s == m, Nullsv, cx->sb_targ, + ((cx->sb_rflags & REXEC_COPY_STR) + ? 0 : REXEC_COPY_STR))) { SV *targ = cx->sb_targ; sv_catpvn(dstr, s, cx->sb_strend - s); |