diff options
| author | Abhijit Menon-Sen <ams@wiw.org> | 2002-10-30 22:30:32 +0000 |
|---|---|---|
| committer | Abhijit Menon-Sen <ams@wiw.org> | 2002-10-30 22:30:32 +0000 |
| commit | ee34a4d037b68daf752af80daf8d69eb1e4ef06a (patch) | |
| tree | 4f933ff466d86cdc71a5168a5647b86c59a302bf /pp_ctl.c | |
| parent | 545956b788eca1693eabb4527163db9c8186832c (diff) | |
| download | perl-ee34a4d037b68daf752af80daf8d69eb1e4ef06a.tar.gz | |
Re: [perl #18114] [no subject] BUG: "-4\n".."0\n" is not DWIM
but "-4\n".."-0\n" is!
From: Slaven Rezic <slaven.rezic@berlin.de>
Date: 30 Oct 2002 16:22:36 +0100
Message-Id: <87n0ow0x4z.fsf@vran.herceg.de>
Subject: RE: [perl #18114] [no subject] [TEST PATCH]BUG: "-4\n".."0\n"
is not DWIM but "-4\n".."-0\n" is!
From: "Orton, Yves" <yves.orton@mciworldcom.de>
Date: Wed, 30 Oct 2002 11:59:31 -0000
Message-Id: <71B318898201D311845C0008C75DAD1C07B78BF7@defra1ex2>
(Applied over previous fix.)
p4raw-id: //depot/perl@18074
Diffstat (limited to 'pp_ctl.c')
| -rw-r--r-- | pp_ctl.c | 3 |
1 files changed, 1 insertions, 2 deletions
@@ -950,8 +950,7 @@ PP(pp_flop) if (SvNIOKp(left) || !SvPOKp(left) || SvNIOKp(right) || !SvPOKp(right) || (looks_like_number(left) && *SvPVX(left) != '0' && - looks_like_number(right) && (*SvPVX(right) != '0' || - SvCUR(right) == 1))) + looks_like_number(right))) { if (SvNV(left) < IV_MIN || SvNV(right) > IV_MAX) DIE(aTHX_ "Range iterator outside integer range"); |