Make numifying "nanblah" warn, just like "345blah" does.

1 files changed, 2 insertions, 0 deletions

diff --git a/sv.c b/sv.c
index 3e6a52eeb6..db2938070c 100644
--- a/sv.c
+++ b/sv.c
@@ -2249,6 +2249,8 @@ S_sv_2iuv_common(pTHX_ SV *const sv)
 	    sv_upgrade(sv, SVt_PVNV);
 
         if ((numtype & (IS_NUMBER_INFINITY | IS_NUMBER_NAN))) {
+            if (ckWARN(WARN_NUMERIC) && ((numtype & IS_NUMBER_NAN)))
+		not_a_number(sv);
             S_sv_setnv(aTHX_ sv, numtype);
             return FALSE;
         }