From 8ee4cf2435c265a68309f8b98520e063bbdc8e42 Mon Sep 17 00:00:00 2001 From: Steve Hay Date: Thu, 13 Apr 2006 11:27:52 +0100 Subject: 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 --- perl.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl.c') diff --git a/perl.c b/perl.c index 83baacea04..a8fd47fab5 100644 --- a/perl.c +++ b/perl.c @@ -2038,7 +2038,7 @@ S_parse_body(pTHX_ char **env, XSINIT_t xsinit) if (PL_taint_warn && PL_dowarn != G_WARN_ALL_OFF) { PL_compiling.cop_warnings - = Perl_new_warnings_bitfield(NULL, WARN_TAINTstring, WARNsize); + = Perl_new_warnings_bitfield(aTHX_ NULL, WARN_TAINTstring, WARNsize); } if (!scriptname) -- cgit v1.2.1