diff options
| author | Marcus Holland-Moritz <mhx-perl@gmx.net> | 2004-03-10 22:45:48 +0100 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-03-18 20:33:02 +0000 |
| commit | 4fe3f0fa0e8a231fc577c0b8520dc57000b1e088 (patch) | |
| tree | 584659c47cfdbe8b346ef180dd5711dabb4cf415 /pp_hot.c | |
| parent | 5ab053b06800167d2bc083dd4186b23d7cb95fce (diff) | |
| download | perl-4fe3f0fa0e8a231fc577c0b8520dc57000b1e088.tar.gz | |
range operator warnings / 64-bit fix
Message-Id: <20040310214548.4f5e3ab1@r2d2>
p4raw-id: //depot/perl@22532
Diffstat (limited to 'pp_hot.c')
| -rw-r--r-- | pp_hot.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -1837,8 +1837,8 @@ PP(pp_iter) if (cx->blk_loop.iterlval) { /* string increment */ register SV* cur = cx->blk_loop.iterlval; - STRLEN maxlen; - char *max = SvPV((SV*)av, maxlen); + STRLEN maxlen = 0; + char *max = SvOK((SV*)av) ? SvPV((SV*)av, maxlen) : ""; if (!SvNIOK(cur) && SvCUR(cur) <= maxlen) { if (SvREFCNT(*itersvp) == 1 && !SvMAGICAL(*itersvp)) { /* safe to reuse old SV */ |