infnan: "nan(1)cy" should numify to $NaN, but also warn

More test cases.

1 files changed, 4 insertions, 1 deletions

diff --git a/numeric.c b/numeric.c
index 9b1b2ae36d..91c298ed5f 100644
--- a/numeric.c
+++ b/numeric.c
@@ -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) {