This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
POSIX nan: declaring s always potentially unused.
authorJarkko Hietaniemi <jhi@iki.fi>
Fri, 5 Dec 2014 02:58:56 +0000 (21:58 -0500)
committerJarkko Hietaniemi <jhi@iki.fi>
Sat, 6 Dec 2014 00:48:04 +0000 (19:48 -0500)
ext/POSIX/POSIX.xs

index 4ee0ec2..81dc18b 100644 (file)
@@ -2631,10 +2631,10 @@ NV
 nan(s = 0)
        char*   s;
     CODE:
+       PERL_UNUSED_VAR(s);
 #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;