This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
279aef2
)
If no strtoul, the args are unused.
author
Jarkko Hietaniemi
<jhi@iki.fi>
Wed, 10 Dec 2014 03:46:24 +0000
(22:46 -0500)
committer
Jarkko 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
patch
|
blob
|
blame
|
history
diff --git
a/ext/POSIX/POSIX.xs
b/ext/POSIX/POSIX.xs
index
48caf9e
..
490249e
100644
(file)
--- 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)