diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 1998-12-08 11:02:04 +0200 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1998-12-29 11:27:11 +0000 |
| commit | ad94a51148da69b36625e16c155cd6147ed14f1a (patch) | |
| tree | 81185c6bda2609aafa161d1fb093e26315fe3d4b /pp_ctl.c | |
| parent | 54b6e2faa887aa86b7b0c280adebcdc0f0804c55 (diff) | |
| download | perl-ad94a51148da69b36625e16c155cd6147ed14f1a.tar.gz | |
Bugs in hairy interactions of feature in REx
To: perl5-porters@perl.org (Mailing list Perl5)
Message-ID: <MLIST_199812080637.BAA16025@monk.mps.ohio-state.edu>
\G fixes (wasn't working right with //g, s///, and $_ in (?{})).
p4raw-id: //depot/cfgperl@2515
Diffstat (limited to 'pp_ctl.c')
| -rw-r--r-- | pp_ctl.c | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -166,7 +166,8 @@ PP(pp_substcont) if (cx->sb_once || !CALLREGEXEC(rx, s, cx->sb_strend, orig, s == m, cx->sb_targ, NULL, ((cx->sb_rflags & REXEC_COPY_STR) - ? 0 : REXEC_COPY_STR))) + ? REXEC_IGNOREPOS + : (REXEC_COPY_STR|REXEC_IGNOREPOS)))) { SV *targ = cx->sb_targ; sv_catpvn(dstr, s, cx->sb_strend - s); |