diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-03-28 15:09:23 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-03-28 15:09:23 +0000 |
| commit | 1630394965e6186de84f9821bf81a70e4d4b3648 (patch) | |
| tree | 24a7465611db76ab7ece52aed28a3e6a73fbad6b /pp.c | |
| parent | 79c9de88ef5e196ed0d72a22755d7df0f7db3862 (diff) | |
| download | perl-1630394965e6186de84f9821bf81a70e4d4b3648.tar.gz | |
pp_ne() needs a boolean, not an integer.
p4raw-id: //depot/perl@9404
Diffstat (limited to 'pp.c')
| -rw-r--r-- | pp.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -1713,10 +1713,10 @@ PP(pp_ge) PP(pp_ne) { - dSP; dTARGET; tryAMAGICbinSET(ne,0); + dSP; tryAMAGICbinSET(ne,0); #ifndef NV_PRESERVES_UV if (SvROK(TOPs) && SvROK(TOPm1s)) { - SETi(PTR2UV(SvRV(TOPs)) - PTR2UV(SvRV(TOPm1s))); + SETs(boolSV(SvRV(TOPs) == SvRV(TOPm1s))); RETURN; } #endif |