diff options
| author | Rick Delaney <rick@consumercontact.com> | 2005-08-21 11:09:57 -0400 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-08-22 14:48:43 +0000 |
| commit | 984a4bea51971bb283e220c062d5c48cc4392e13 (patch) | |
| tree | 91996afe4c535d5d2c2d513a560e68606abcfb30 /pp_ctl.c | |
| parent | 51da1d85ebd387728f88fa79405a8e8eed318078 (diff) | |
| download | perl-984a4bea51971bb283e220c062d5c48cc4392e13.tar.gz | |
Re: [perl #36959] List Constructor Operator - Undefined Values
Message-ID: <20050821190957.GE7674@localhost.localdomain>
p4raw-id: //depot/perl@25319
Diffstat (limited to 'pp_ctl.c')
| -rw-r--r-- | pp_ctl.c | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -1843,6 +1843,8 @@ PP(pp_enteriter) if (SvTYPE(cx->blk_loop.iterary) != SVt_PVAV) { dPOPss; SV *right = (SV*)cx->blk_loop.iterary; + SvGETMAGIC(sv); + SvGETMAGIC(right); if (RANGE_IS_NUMERIC(sv,right)) { if ((SvOK(sv) && SvNV(sv) < IV_MIN) || (SvOK(right) && SvNV(right) >= IV_MAX)) |