This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
While the nan() todo remains, at least warn not.
authorJarkko Hietaniemi <jhi@iki.fi>
Wed, 19 Nov 2014 00:28:32 +0000 (19:28 -0500)
committerJarkko Hietaniemi <jhi@iki.fi>
Wed, 19 Nov 2014 00:29:58 +0000 (19:29 -0500)
ext/POSIX/POSIX.xs

index 4ed3855..1485d3d 100644 (file)
@@ -2626,6 +2626,7 @@ nan(s = 0)
 #ifdef c99_nan
        RETVAL = c99_nan(s ? s : "");
 #elif defined(NV_NAN)
+       PERL_UNUSED_VAR(s);
        /* XXX if s != NULL, warn about unused argument,
          * or implement the nan payload setting. */
        RETVAL = NV_NAN;