This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
pad.h: Update PadnamePV description
[perl5.git] / taint.c
diff --git a/taint.c b/taint.c
index f21f5be..60a9a54 100644 (file)
--- a/taint.c
+++ b/taint.c
@@ -27,8 +27,6 @@ void
 Perl_taint_proper(pTHX_ const char *f, const char *const s)
 {
 #if defined(HAS_SETEUID) && defined(DEBUGGING)
-    dVAR;
-
     PERL_ARGS_ASSERT_TAINT_PROPER;
 
     {
@@ -79,7 +77,6 @@ Perl_taint_proper(pTHX_ const char *f, const char *const s)
 void
 Perl_taint_env(pTHX)
 {
-    dVAR;
     SV** svp;
     MAGIC* mg;
     const char* const *e;