diff options
| author | Hugo van der Sanden <hv@crypt.org> | 1999-02-04 02:37:31 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-02-15 01:04:30 +0000 |
| commit | 86cb71737ed277fd6cd123008b871f7a00c2944b (patch) | |
| tree | 88ab853ebe6850f89689a8b7c984840bee4e15d5 /pp_ctl.c | |
| parent | ce3e6498997f4e021f5bd71c1348f2c333883083 (diff) | |
| download | perl-86cb71737ed277fd6cd123008b871f7a00c2944b.tar.gz | |
Re: .. misinterpreted as flipflop
Message-Id: <199902040237.CAA03255@crypt.compulink.co.uk>
p4raw-id: //depot/perl@2923
Diffstat (limited to 'pp_ctl.c')
| -rw-r--r-- | pp_ctl.c | 5 |
1 files changed, 5 insertions, 0 deletions
@@ -1069,6 +1069,11 @@ PP(pp_flop) register SV *sv; I32 max; + if (SvGMAGICAL(left)) + mg_get(left); + if (SvGMAGICAL(right)) + mg_get(right); + if (SvNIOKp(left) || !SvPOKp(left) || (looks_like_number(left) && *SvPVX(left) != '0') ) { |