-Wall strays.

p4raw-id: //depot/perl@10650

2 files changed, 1 insertions, 2 deletions

diff --git a/perl.c b/perl.c
index be4a7862f5..ffb5150740 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 d604562c30..7a7d5f16d4 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;