X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/8b225b9cd8c7e6b254c637331556189572824c91..863f2221fb3e688e30e71fb86c1599bdc55d4a3f:/taint.c?ds=sidebyside

diff --git a/taint.c b/taint.c
index f21f5be..60a9a54 100644
--- 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;