diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2014-12-09 22:46:24 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2014-12-09 23:09:20 -0500 |
| commit | 0f17be83fce99eb5b6085bedc02f3b1cb03846bb (patch) | |
| tree | 0bb848ff9dfaeb49215b74cea4ed3a87483a3181 /ext/POSIX | |
| parent | 279aef25246e63a7be992e42d2b92e22a892263e (diff) | |
| download | perl-0f17be83fce99eb5b6085bedc02f3b1cb03846bb.tar.gz | |
If no strtoul, the args are unused.
(strtoul is defined as not_here() if not found.)
Diffstat (limited to 'ext/POSIX')
| -rw-r--r-- | ext/POSIX/POSIX.xs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/ext/POSIX/POSIX.xs b/ext/POSIX/POSIX.xs index 48caf9e0ae..490249e702 100644 --- a/ext/POSIX/POSIX.xs +++ b/ext/POSIX/POSIX.xs @@ -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) |