diff options
| author | Robin Barker <rmbarker@cpan.org> | 2011-01-27 14:02:36 +0000 |
|---|---|---|
| committer | Ævar Arnfjörð Bjarmason <avar@cpan.org> | 2011-01-27 20:16:20 +0000 |
| commit | 5cf9651332ed0ede8b731e49a0f5b3bf300b7b0e (patch) | |
| tree | 3cd427008a1b297699aefd4fdccb4eb02e92669d /perlio.c | |
| parent | 99ca48e139a839de3f512cb8cae93f1fe51062ab (diff) | |
| download | perl-5cf9651332ed0ede8b731e49a0f5b3bf300b7b0e.tar.gz | |
perlio.c: silence format warnings
Signed-off-by: Ævar Arnfjörð Bjarmason <avar@cpan.org>
Diffstat (limited to 'perlio.c')
| -rw-r--r-- | perlio.c | 12 |
1 files changed, 6 insertions, 6 deletions
@@ -1267,17 +1267,17 @@ PerlIO_push(pTHX_ PerlIO *f, PERLIO_FUNCS_DECL(*tab), const char *mode, SV *arg) VERIFY_HEAD(f); if (tab->fsize != sizeof(PerlIO_funcs)) { Perl_croak( aTHX_ - "%s (%d) does not match %s (%d)", - "PerlIO layer function table size", tab->fsize, - "size expected by this perl", sizeof(PerlIO_funcs) ); + "%s (%"UVuf") does not match %s (%"UVuf")", + "PerlIO layer function table size", (UV)tab->fsize, + "size expected by this perl", (UV)sizeof(PerlIO_funcs) ); } if (tab->size) { PerlIOl *l; if (tab->size < sizeof(PerlIOl)) { Perl_croak( aTHX_ - "%s (%d) smaller than %s (%d)", - "PerlIO layer instance size", tab->size, - "size expected by this perl", sizeof(PerlIOl) ); + "%s (%"UVuf") smaller than %s (%"UVuf")", + "PerlIO layer instance size", (UV)tab->size, + "size expected by this perl", (UV)sizeof(PerlIOl) ); } /* Real layer with a data area */ if (f) { |