This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
POSIX math: s = "0" is not happy with -Wwrite-strings.
[perl5.git] / ext / POSIX / POSIX.xs
index 9c7e77d..a6300f7 100644 (file)
@@ -2348,11 +2348,11 @@ fma(x,y,z)
        RETVAL
 
 NV
-nan(s = "0")
+nan(s = 0)
        char*   s;
     CODE:
 #ifdef c99_nan
-       RETVAL = c99_nan(s);
+       RETVAL = c99_nan(s ? s : "");
 #else
        RETVAL = NV_NAN;
        not_here("nan");