This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
printf formats are hard.
authorJarkko Hietaniemi <jhi@iki.fi>
Fri, 27 Jun 2014 23:43:44 +0000 (19:43 -0400)
committerJarkko Hietaniemi <jhi@iki.fi>
Fri, 27 Jun 2014 23:43:44 +0000 (19:43 -0400)
Coverity perl5 CID 68582.

ext/Hash-Util/Util.xs

index 63d898d..590023f 100644 (file)
@@ -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);