From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sat, 16 Jun 2001 22:58:48 +0000 (+0000)
Subject: -Wall strays.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3e209e7147bec9694b511c058bf24a0b91ec8ac6;p=p5sagit%2Fp5-mst-13.2.git

-Wall strays.

p4raw-id: //depot/perl@10650
---

diff --git a/perl.c b/perl.c
index be4a786..ffb5150 100644
--- a/perl.c
+++ b/perl.c
@@ -149,7 +149,6 @@ void
 perl_construct(pTHXx)
 {
 #ifdef USE_THREADS
-    int i;
 #ifndef FAKE_THREADS
     struct perl_thread *thr = NULL;
 #endif /* FAKE_THREADS */
diff --git a/util.c b/util.c
index d604562..7a7d5f1 100644
--- a/util.c
+++ b/util.c
@@ -2790,7 +2790,7 @@ Perl_condpair_magic(pTHX_ SV *sv)
 {
     MAGIC *mg;
 
-    SvUPGRADE(sv, SVt_PVMG);
+    (void)SvUPGRADE(sv, SVt_PVMG);
     mg = mg_find(sv, PERL_MAGIC_mutex);
     if (!mg) {
 	condpair_t *cp;