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:
9568fad
)
printf formats are hard.
author
Jarkko Hietaniemi
<jhi@iki.fi>
Fri, 27 Jun 2014 23:43:44 +0000
(19:43 -0400)
committer
Jarkko Hietaniemi
<jhi@iki.fi>
Fri, 27 Jun 2014 23:43:44 +0000
(19:43 -0400)
Coverity perl5 CID 68582.
ext/Hash-Util/Util.xs
patch
|
blob
|
blame
|
history
diff --git
a/ext/Hash-Util/Util.xs
b/ext/Hash-Util/Util.xs
index
63d898d
..
590023f
100644
(file)
--- a/
ext/Hash-Util/Util.xs
+++ b/
ext/Hash-Util/Util.xs
@@
-85,7
+85,7
@@
hash_value(string,...)
U8 *seedbuf= (U8 *)SvPV(ST(1),seedlen);
if ( seedlen < PERL_HASH_SEED_BYTES ) {
sv_dump(ST(1));
- Perl_croak(aTHX_ "seed len must be at least %d long only got %
d bytes", PERL_HASH_SEED_BYTES,
seedlen);
+ Perl_croak(aTHX_ "seed len must be at least %d long only got %
"UVuf" bytes", PERL_HASH_SEED_BYTES, (UV)
seedlen);
}
PERL_HASH_WITH_SEED(seedbuf, uv, pv, len);