silence warnings under NO_TAINT_SUPPORT

The are lots of places where local vars aren't used when compiled
with NO_TAINT_SUPPORT.

1 files changed, 6 insertions, 0 deletions

diff --git a/pp_hot.c b/pp_hot.c
index 361b488124..dd9e5f15be 100644
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -1243,6 +1243,12 @@ PP(pp_aassign)
 	    tmp_egid = PerlProc_getegid();
 	}
 	TAINTING_set( TAINTING_get | (tmp_uid && (tmp_euid != tmp_uid || tmp_egid != tmp_gid)) );
+#ifdef NO_TAINT_SUPPORT
+        PERL_UNUSED_VAR(tmp_uid);
+        PERL_UNUSED_VAR(tmp_euid);
+        PERL_UNUSED_VAR(tmp_gid);
+        PERL_UNUSED_VAR(tmp_egid);
+#endif
     }
     PL_delaymagic = 0;