diff options
author | Marcus Holland-Moritz <mhx-perl@gmx.net> | 2008-11-07 22:33:39 +0000 |
---|---|---|
committer | David Mitchell <davem@iabyn.com> | 2009-03-29 23:26:24 +0100 |
commit | 2a3ccdc53579d7ac643916dcb1d45b49686d30c5 (patch) | |
tree | 72c42e744ab83bb295ca6d35ebe5225f6d377f7c /op.c | |
parent | 7c2c3d5726c4d6941be1e899612cf802ae6c9ade (diff) | |
download | perl-2a3ccdc53579d7ac643916dcb1d45b49686d30c5.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
(cherry-picked from commit d2c6dc5ee586de7e57a1fe8c160cf7c8aaf3f3f8)
Diffstat (limited to 'op.c')
-rw-r--r-- | op.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -7889,7 +7889,7 @@ Perl_ck_join(pTHX_ OP *o) if (kid && kid->op_type == OP_MATCH) { if (ckWARN(WARN_SYNTAX)) { const REGEXP *re = PM_GETRE(kPMOP); - const char *pmstr = re ? RX_PRECOMP(re) : "STRING"; + const char *pmstr = re ? RX_PRECOMP_const(re) : "STRING"; const STRLEN len = re ? RX_PRELEN(re) : 6; Perl_warner(aTHX_ packWARN(WARN_SYNTAX), "/%.*s/ should probably be written as \"%.*s\"", |