From 5edc65b39b6317e0ab48cabbe2834afad4b21a9a Mon Sep 17 00:00:00 2001 From: Rafael Garcia-Suarez Date: Wed, 12 Sep 2007 11:48:32 +0000 Subject: [PATCH] Amend change 31854 for when NAN_COMPARE_BROKEN p4raw-id: //depot/perl@31855 --- sv.c | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/sv.c b/sv.c index a2646f7..1933945 100644 --- a/sv.c +++ b/sv.c @@ -9194,7 +9194,12 @@ Perl_sv_vcatpvfn(pTHX_ SV *sv, const char *pat, STRLEN patlen, va_list *args, SV : SvNV(argsv); need = 0; - if (c != 'e' && c != 'E' && nv == nv) { +#if defined(NAN_COMPARE_BROKEN) && defined(Perl_isnan) + if (c != 'e' && c != 'E' && !Perl_isnan(nv)) +#else + if (c != 'e' && c != 'E' && nv == nv) +#endif + { i = PERL_INT_MIN; /* FIXME: if HAS_LONG_DOUBLE but not USE_LONG_DOUBLE this will cast our (long double) to (double) */ -- 1.8.3.1