diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-03-05 09:04:52 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-03-05 09:04:52 +0000 |
| commit | 155aba94f677ac771761a1f510964fe5b21524ed (patch) | |
| tree | 80d7d14e42ed27cbd9bafcea2c1f10a54bf150a3 /universal.c | |
| parent | b21babef0dc893282c08080aa99c4bd760e05204 (diff) | |
| download | perl-155aba94f677ac771761a1f510964fe5b21524ed.tar.gz | |
fixes for most warnings identified by gcc -Wall
p4raw-id: //depot/perl@5540
Diffstat (limited to 'universal.c')
| -rw-r--r-- | universal.c | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/universal.c b/universal.c index 0e5a89b2c0..f6b25a4d33 100644 --- a/universal.c +++ b/universal.c @@ -86,7 +86,6 @@ for class names as well as for objects. bool Perl_sv_derived_from(pTHX_ SV *sv, const char *name) { - SV *rv; char *type; HV *stash; @@ -110,7 +109,6 @@ Perl_sv_derived_from(pTHX_ SV *sv, const char *name) (stash && isa_lookup(stash, name, strlen(name), 0) == &PL_sv_yes) ? TRUE : FALSE ; - } void XS_UNIVERSAL_isa(pTHXo_ CV *cv); @@ -250,7 +248,7 @@ XS(XS_UNIVERSAL_VERSION) } /* they said C<use Foo 1.002_003> and $Foo::VERSION * doesn't look like a float: force numeric compare */ - SvUPGRADE(sv, SVt_PVNV); + (void)SvUPGRADE(sv, SVt_PVNV); SvNVX(sv) = str_to_version(sv); SvPOK_off(sv); SvNOK_on(sv); |