X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=pp.c;h=30476bd7504a952a36b3bc81e65f32d2547b57a3;hb=2a4bf7730d252fcadf5e50c3a9c740b5c94acfe3;hp=300b20fc376378beae931dec0b097b81366e9249;hpb=1c1fc3ea10284b28de560550fae130e9d453e5c1;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/pp.c b/pp.c
index 300b20f..30476bd 100644
--- a/pp.c
+++ b/pp.c
@@ -1199,7 +1199,7 @@ PP(pp_ncmp)
     {
       dPOPTOPnnrl;
       I32 value;
-#ifdef __osf__ /* XXX fix in 5.6.1 --jhi */
+#ifdef __osf__ /* XXX Configure probe for isnan and isnanl needed XXX */
 #if defined(USE_LONG_DOUBLE) && defined(HAS_LONG_DOUBLE)
 #define Perl_isnan isnanl
 #else
@@ -1398,7 +1398,7 @@ PP(pp_negate)
 		    RETURN;
 		}
 		else if (SvUVX(sv) <= IV_MAX) {
-		    SETi(-SvUVX(sv));
+		    SETi(-SvIVX(sv));
 		    RETURN;
 		}
 	    }