diff options
author | Jarkko Hietaniemi <jhi@iki.fi> | 2015-02-10 13:18:20 -0500 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2015-02-10 18:45:10 -0500 |
commit | 99fcdd4df47515fb0a62a046e622adec0871754d (patch) | |
tree | 34f3c552c40219c2ed151f744a0df474406a364f /numeric.c | |
parent | 9024667a44828cc925a3d939578415da8ffeec83 (diff) | |
download | perl-99fcdd4df47515fb0a62a046e622adec0871754d.tar.gz |
infnan: "nan(1)cy" should numify to $NaN, but also warn
More test cases.
Diffstat (limited to 'numeric.c')
-rw-r--r-- | numeric.c | 5 |
1 files changed, 4 insertions, 1 deletions
@@ -806,8 +806,11 @@ Perl_grok_nan_payload(pTHX_ const char* s, const char* send, bool signaling, int * "nan0xabc", or "nan(s123)" ("s" for signaling). */ while (t > s && isSPACE(*t)) t--; + if (*t != ')') { - return send; + U8 bytes[1] = { 0 }; + nan_payload_set(nvp, bytes, 1, signaling); + return t; } if (++s == send) { |