diff options
| author | Jerry D. Hedden <jdhedden@cpan.org> | 2008-05-21 09:15:28 -0400 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2008-05-23 06:15:37 +0000 |
| commit | 93c512172a58c199c03358764753a650e33707e2 (patch) | |
| tree | a20078554f9f253ce777087cc495d2c2623c1bfd /universal.c | |
| parent | b60ab40eb1d60b7918d821d835bf0a7e6295f5ee (diff) | |
| download | perl-93c512172a58c199c03358764753a650e33707e2.tar.gz | |
Silence build warnings in universal.c
From: "Jerry D. Hedden" <jdhedden@cpan.org>
Message-ID: <1ff86f510805211015m5c59bbf5wf3a992e776b1c4c4@mail.gmail.com>
p4raw-id: //depot/perl@33910
Diffstat (limited to 'universal.c')
| -rw-r--r-- | universal.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/universal.c b/universal.c index 008b593340..84d13fca9b 100644 --- a/universal.c +++ b/universal.c @@ -329,7 +329,7 @@ Perl_croak_xs_usage(pTHX_ const CV *const cv, const char *const params) Perl_croak(aTHX_ "Usage: %s(%s)", gvname, params); } else { /* Pants. I don't think that it should be possible to get here. */ - Perl_croak(aTHX_ "Usage: CODE(0x%"UVxf")(%s)", (UV)cv, params); + Perl_croak(aTHX_ "Usage: CODE(0x%"UVxf")(%s)", PTR2UV(cv), params); } } @@ -1065,6 +1065,7 @@ XS(XS_Internals_HvREHASH) /* Subject to change */ { dVAR; dXSARGS; + PERL_UNUSED_ARG(cv); if (SvROK(ST(0))) { const HV * const hv = (HV *) SvRV(ST(0)); if (items == 1 && SvTYPE(hv) == SVt_PVHV) { |