summaryrefslogtreecommitdiff
path: root/regexec.c
diff options
context:
space:
mode:
authorMarcus Holland-Moritz <mhx-perl@gmx.net>2008-11-07 22:33:39 +0000
committerMarcus Holland-Moritz <mhx-perl@gmx.net>2008-11-07 22:33:39 +0000
commitd2c6dc5ee586de7e57a1fe8c160cf7c8aaf3f3f8 (patch)
treea327fc3bbaaeba3b7d394962e7685591b50033be /regexec.c
parentda7fcca4b8d6fb4dc88e0305bf9830bf24912ebd (diff)
downloadperl-d2c6dc5ee586de7e57a1fe8c160cf7c8aaf3f3f8.tar.gz
Revert SvPVX() to allow lvalue usage, but also add a
MUTABLE_SV() check. Use SvPVX_const() instead of SvPVX() where only a const SV* is available. Also fix two falsely consted pointers in Perl_sv_2pv_flags(). p4raw-id: //depot/perl@34770
Diffstat (limited to 'regexec.c')
-rw-r--r--regexec.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/regexec.c b/regexec.c
index 363e205589..025d1592f4 100644
--- a/regexec.c
+++ b/regexec.c
@@ -2590,7 +2590,7 @@ S_debug_start_match(pTHX_ const REGEXP *prog, const bool do_utf8,
reginitcolors();
{
RE_PV_QUOTED_DECL(s0, utf8_pat, PERL_DEBUG_PAD_ZERO(0),
- RX_PRECOMP(prog), RX_PRELEN(prog), 60);
+ RX_PRECOMP_const(prog), RX_PRELEN(prog), 60);
RE_PV_QUOTED_DECL(s1, do_utf8, PERL_DEBUG_PAD_ZERO(1),
start, end - start, 60);