summaryrefslogtreecommitdiff
path: root/pp_hot.c
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2005-06-08 22:48:00 +0000
committerNicholas Clark <nick@ccl4.org>2005-06-08 22:48:00 +0000
commitd526390560c1ae208a087ad4d648b08895f79f8f (patch)
tree461f01c4dc1a61eaf8c2ccaaee2b249d7e873872 /pp_hot.c
parent940132f3fde5cf1c168dc34e3a3fea4e825977d5 (diff)
downloadperl-d526390560c1ae208a087ad4d648b08895f79f8f.tar.gz
More SvPV consting
p4raw-id: //depot/perl@24769
Diffstat (limited to 'pp_hot.c')
-rw-r--r--pp_hot.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/pp_hot.c b/pp_hot.c
index 6626b16202..508840393b 100644
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -1991,7 +1991,7 @@ PP(pp_subst)
DIE(aTHX_ PL_no_modify);
PUTBACK;
- s = SvPV(TARG, len);
+ s = SvPV_mutable(TARG, len);
if (!SvPOKp(TARG) || SvTYPE(TARG) == SVt_PVGV)
force_on_match = 1;
rxtainted = ((pm->op_pmdynflags & PMdf_TAINTED) ||