diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-09-26 17:02:03 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-09-26 17:02:03 +0000 |
| commit | d470f89e9a2abc6d26aa153a172cfbb87482dc3a (patch) | |
| tree | 61cadb5c2db9230fd94b6869db502d895f38ce00 /pp_ctl.c | |
| parent | 28004758a4be3afd9c9a9251638c7cfde8191e6b (diff) | |
| download | perl-d470f89e9a2abc6d26aa153a172cfbb87482dc3a.tar.gz | |
fix buggy popping of subroutine contexts in the lvalue
subroutines implementation (change#4081); correct the
plethora of cases where DIE() was more appropriate than
croak()
p4raw-link: @4081 on //depot/perl: cd06dffe59d60ee6a2fdd7c81f8cef42c7026b36
p4raw-id: //depot/perl@4235
Diffstat (limited to 'pp_ctl.c')
| -rw-r--r-- | pp_ctl.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -971,7 +971,7 @@ PP(pp_flop) (looks_like_number(left) && *SvPVX(left) != '0') ) { if (SvNV(left) < IV_MIN || SvNV(right) > IV_MAX) - Perl_croak(aTHX_ "Range iterator outside integer range"); + DIE(aTHX_ "Range iterator outside integer range"); i = SvIV(left); max = SvIV(right); if (max >= i) { @@ -1616,7 +1616,7 @@ PP(pp_enteriter) (looks_like_number(sv) && *SvPVX(sv) != '0')) { if (SvNV(sv) < IV_MIN || SvNV((SV*)cx->blk_loop.iterary) >= IV_MAX) - Perl_croak(aTHX_ "Range iterator outside integer range"); + DIE(aTHX_ "Range iterator outside integer range"); cx->blk_loop.iterix = SvIV(sv); cx->blk_loop.itermax = SvIV((SV*)cx->blk_loop.iterary); } |