diff options
author | Gurusamy Sarathy <gsar@cpan.org> | 1998-07-09 11:07:42 +0000 |
---|---|---|
committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-07-09 11:07:42 +0000 |
commit | aafb16c143b5a73b46307523883bd0548ff26277 (patch) | |
tree | 36e03183548882edec9d6cd60399af1a3ab46e13 /pp_hot.c | |
parent | 72b5445bd8dae616be2d969c596f57ff003832e2 (diff) | |
download | perl-aafb16c143b5a73b46307523883bd0548ff26277.tar.gz |
undo problematic change#1367
p4raw-link: @1367 on //depot/perl: d426b052dee31c20224ef2893d5c969ad5a2c617
p4raw-id: //depot/perl@1398
Diffstat (limited to 'pp_hot.c')
-rw-r--r-- | pp_hot.c | 9 |
1 files changed, 1 insertions, 8 deletions
@@ -1459,14 +1459,7 @@ PP(pp_iter) /* integer increment */ if (cx->blk_loop.iterix > cx->blk_loop.itermax) RETPUSHNO; - - /* we know that the loop index SV is IV capable, so we can save - * some time by doing the essential work of sv_setiv() ourself. - */ - sv = *cx->blk_loop.itervar; - (void)SvIOK_only(sv); - SvIVX(sv) = cx->blk_loop.iterix++; - + sv_setiv(*cx->blk_loop.itervar, cx->blk_loop.iterix++); RETPUSHYES; } |