diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-12 00:29:20 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-12 00:29:20 +0000 |
| commit | d05c1ba08d199ec5bed1e39e74e1c4c0f8d726b6 (patch) | |
| tree | 7a7b729922fd23d80bf3ffaa2ea202c204ebc501 /ext/Devel | |
| parent | 4fca3945e6d50f55c1660233803e96a8edddd182 (diff) | |
| download | perl-d05c1ba08d199ec5bed1e39e74e1c4c0f8d726b6.tar.gz | |
gcc -Wall nits picked out by a non-UNIX system
(courtesy of Mark Bixby)
p4raw-id: //depot/perl@10524
Diffstat (limited to 'ext/Devel')
| -rw-r--r-- | ext/Devel/Peek/Peek.xs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/ext/Devel/Peek/Peek.xs b/ext/Devel/Peek/Peek.xs index b3131b6c85..9806427552 100644 --- a/ext/Devel/Peek/Peek.xs +++ b/ext/Devel/Peek/Peek.xs @@ -151,7 +151,6 @@ void fill_mstats(SV *sv, int level) { dTHX; - int nbuckets; struct mstats_buffer buf; if (SvREADONLY(sv)) @@ -216,7 +215,7 @@ _mstats_to_hv(HV *hv, struct mstats_buffer *b, int level) warn("FIXME: internal mstats buffer too short"); for (type = 0; type < (level ? 4 : 2); type++) { - UV *p, *p1; + UV *p = 0, *p1 = 0; AV *av; int i; static const char *types[4] = { @@ -229,7 +228,7 @@ _mstats_to_hv(HV *hv, struct mstats_buffer *b, int level) croak("Unexpected value for the key '%s' in the mstats hash", types[type]); if (!SvOK(*svp)) { av = newAV(); - SvUPGRADE(*svp, SVt_RV); + (void)SvUPGRADE(*svp, SVt_RV); SvRV(*svp) = (SV*)av; SvROK_on(*svp); } else |