summaryrefslogtreecommitdiff
path: root/pp_ctl.c
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2005-06-07 21:16:13 +0000
committerNicholas Clark <nick@ccl4.org>2005-06-07 21:16:13 +0000
commit10516c54a74630cf74b5f3650f62a47cae3b2ac0 (patch)
treebf97f300ff97cf11727fc86c6de43751b823c6da /pp_ctl.c
parent245d4a47e185d4e38ca6440eb62ae19d5e411fd1 (diff)
downloadperl-10516c54a74630cf74b5f3650f62a47cae3b2ac0.tar.gz
More SvPV consting
p4raw-id: //depot/perl@24743
Diffstat (limited to 'pp_ctl.c')
-rw-r--r--pp_ctl.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/pp_ctl.c b/pp_ctl.c
index 406ad23b57..3dd92b74ad 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -1835,7 +1835,7 @@ PP(pp_enteriter)
STRLEN n_a;
cx->blk_loop.iterlval = newSVsv(sv);
(void) SvPV_force(cx->blk_loop.iterlval,n_a);
- (void) SvPV(right,n_a);
+ (void) SvPV_nolen_const(right);
}
}
else if (PL_op->op_private & OPpITER_REVERSED) {