RE: [PATCH, no, really!] Re: [perl #38779] NAN's on Win32
[perl.git] / pp_hot.c
index c34fb90..3b4d8ed 100644 (file)
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -363,8 +363,15 @@ PP(pp_eq)
     }
 #endif
     {
+#if defined(NAN_COMPARE_BROKEN) && defined(Perl_isnan)
+      dPOPTOPnnrl;
+      if (Perl_isnan(left) || Perl_isnan(right))
+         RETSETNO;
+      SETs(boolSV(left == right));
+#else
       dPOPnv;
       SETs(boolSV(TOPn == value));
+#endif
       RETURN;
     }
 }