diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-05-30 23:56:14 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-05-30 23:56:14 +0000 |
| commit | 9c5ffd7c3fe1ab64d3e7d06810ac3ab42426718b (patch) | |
| tree | 0865e36d778d81c5329cbbace339ef7bc601980a /ext/List | |
| parent | a355d973eb7817e2c7ea1f451ee3c80da9cf5765 (diff) | |
| download | perl-9c5ffd7c3fe1ab64d3e7d06810ac3ab42426718b.tar.gz | |
More -Wall sweeping.
p4raw-id: //depot/perl@10338
Diffstat (limited to 'ext/List')
| -rw-r--r-- | ext/List/Util/Util.xs | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/ext/List/Util/Util.xs b/ext/List/Util/Util.xs index 1e6d8f6fe9..c5b5ebf27e 100644 --- a/ext/List/Util/Util.xs +++ b/ext/List/Util/Util.xs @@ -89,7 +89,6 @@ PROTOTYPE: @ CODE: { int index; - NV ret; if(!items) { XSRETURN_UNDEF; } @@ -193,7 +192,6 @@ first(block,...) PROTOTYPE: &@ CODE: { - SV *ret; int index; I32 markix; GV *gv; @@ -237,7 +235,7 @@ CODE: STRLEN len; char *ptr = SvPV(str,len); ST(0) = sv_newmortal(); - SvUPGRADE(ST(0),SVt_PVNV); + (void)SvUPGRADE(ST(0),SVt_PVNV); sv_setpvn(ST(0),ptr,len); if(SvNOKp(num) || !SvIOKp(num)) { SvNVX(ST(0)) = SvNV(num); |