diff options
| author | Marcus Holland-Moritz <mhx-perl@gmx.net> | 2004-03-15 23:16:26 +0100 |
|---|---|---|
| committer | Marcus Holland-Moritz <mhx-perl@gmx.net> | 2004-04-05 20:03:03 +0000 |
| commit | e0ab1c0e1c533d7f19b4ffe230a3d921bf733a02 (patch) | |
| tree | 1a9348874320960a458f9027f96d08293d67b49f /pp_ctl.c | |
| parent | dc9da78b70f004446f5a9327eea553687ad8c180 (diff) | |
| download | perl-e0ab1c0e1c533d7f19b4ffe230a3d921bf733a02.tar.gz | |
C<undef> doesn't look like a number. See also:
Subject: Re: [perl #27606] undef "looks like" a number
Message-Id: <20040315221626.48061c67@r2d2>
p4raw-id: //depot/perl@22662
Diffstat (limited to 'pp_ctl.c')
| -rw-r--r-- | pp_ctl.c | 5 |
1 files changed, 3 insertions, 2 deletions
@@ -1058,8 +1058,9 @@ PP(pp_flip) #define RANGE_IS_NUMERIC(left,right) ( \ SvNIOKp(left) || (SvOK(left) && !SvPOKp(left)) || \ SvNIOKp(right) || (SvOK(right) && !SvPOKp(right)) || \ - (((!SvOK(left) && SvOK(right)) || (looks_like_number(left) && \ - SvPOKp(left) && *SvPVX(left) != '0')) && looks_like_number(right))) + (((!SvOK(left) && SvOK(right)) || ((!SvOK(left) || \ + looks_like_number(left)) && SvPOKp(left) && *SvPVX(left) != '0')) \ + && (!SvOK(right) || looks_like_number(right)))) PP(pp_flop) { |