This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
If no strtoul, the args are unused.
authorJarkko Hietaniemi <jhi@iki.fi>
Wed, 10 Dec 2014 03:46:24 +0000 (22:46 -0500)
committerJarkko Hietaniemi <jhi@iki.fi>
Wed, 10 Dec 2014 04:09:20 +0000 (23:09 -0500)
(strtoul is defined as not_here() if not found.)

ext/POSIX/POSIX.xs

index 48caf9e..490249e 100644 (file)
@@ -3155,6 +3155,8 @@ strtoul(str, base = 0)
        unsigned long num;
        char *unparsed;
     PPCODE:
+       PERL_UNUSED_VAR(str);
+       PERL_UNUSED_VAR(base);
        num = strtoul(str, &unparsed, base);
 #if IVSIZE <= LONGSIZE
        if (num > IV_MAX)