Re: [PATCH] add pTHX_ parameter to new_warnings_bitfield()

Message-ID: <443E1998.9090909@uk.radan.com>
Date: Thu, 13 Apr 2006 10:27:52 +0100

p4raw-id: //depot/perl@27784

1 files changed, 1 insertions, 1 deletions

diff --git a/pp_ctl.c b/pp_ctl.c
index 19c2ac5fa7..5288c66d80 100644
--- 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 ;