diff options
| author | Zefram <unknown> | 2007-09-11 08:22:23 -0700 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-09-12 11:02:40 +0000 |
| commit | 03e3a31924f12b508d22debad27f3900a3277300 (patch) | |
| tree | 704fb99cd4c151808e60d76ffa9c07dbf5c125f7 /sv.c | |
| parent | 5565990ae7d1a23693f78cbe611ec2a5af8dd5e1 (diff) | |
| download | perl-03e3a31924f12b508d22debad27f3900a3277300.tar.gz | |
[perl #45383] sprintf %f panics with NaN
From: Zefram (via RT) <perlbug-followup@perl.org>
Message-ID: <rt-3.6.HEAD-10743-1189549342-52.45383-75-0@perl.org>
p4raw-id: //depot/perl@31854
Diffstat (limited to 'sv.c')
| -rw-r--r-- | sv.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -9194,7 +9194,7 @@ Perl_sv_vcatpvfn(pTHX_ SV *sv, const char *pat, STRLEN patlen, va_list *args, SV : SvNV(argsv); need = 0; - if (c != 'e' && c != 'E') { + if (c != 'e' && c != 'E' && nv == nv) { i = PERL_INT_MIN; /* FIXME: if HAS_LONG_DOUBLE but not USE_LONG_DOUBLE this will cast our (long double) to (double) */ |