perlio.c: (Coverity) eliminate temp ptr that confuses Coverity into thinking there...

[p5sagit/p5-mst-13.2.git] / pp_ctl.c

diff --git a/pp_ctl.c b/pp_ctl.c
index 19c2ac5..5288c66 100644 (file)
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -3370,7 +3370,7 @@ PP(pp_require)
         PL_compiling.cop_warnings = pWARN_NONE ;
     else if (PL_taint_warn) {
         PL_compiling.cop_warnings
-           = Perl_new_warnings_bitfield(NULL, WARN_TAINTstring, WARNsize);
+           = Perl_new_warnings_bitfield(aTHX_ NULL, WARN_TAINTstring, WARNsize);
     }
     else
         PL_compiling.cop_warnings = pWARN_STD ;