-Wall strays.

p4raw-id: //depot/perl@10650

diff --git a/perl.c b/perl.c
index be4a786..ffb5150 100644 (file)
--- 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 (file)
--- 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;