From d3a7d8c7d7e4d69d7d81e4e3e900ec57f07ca07c Mon Sep 17 00:00:00 2001 From: Gurusamy Sarathy Date: Mon, 13 Mar 2000 11:09:05 +0000 Subject: final touches for lexical warnings (from Paul Marquess) p4raw-id: //depot/perl@5702 --- pp_ctl.c | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'pp_ctl.c') diff --git a/pp_ctl.c b/pp_ctl.c index 4917b02c98..cee753a125 100644 --- a/pp_ctl.c +++ b/pp_ctl.c @@ -1562,9 +1562,9 @@ PP(pp_caller) { SV * mask ; SV * old_warnings = cx->blk_oldcop->cop_warnings ; - if (old_warnings == WARN_NONE || old_warnings == WARN_STD) + if (old_warnings == pWARN_NONE || old_warnings == pWARN_STD) mask = newSVpvn(WARN_NONEstring, WARNsize) ; - else if (old_warnings == WARN_ALL) + else if (old_warnings == pWARN_ALL) mask = newSVpvn(WARN_ALLstring, WARNsize) ; else mask = newSVsv(old_warnings); @@ -3167,11 +3167,11 @@ PP(pp_require) PL_hints = 0; SAVESPTR(PL_compiling.cop_warnings); if (PL_dowarn & G_WARN_ALL_ON) - PL_compiling.cop_warnings = WARN_ALL ; + PL_compiling.cop_warnings = pWARN_ALL ; else if (PL_dowarn & G_WARN_ALL_OFF) - PL_compiling.cop_warnings = WARN_NONE ; + PL_compiling.cop_warnings = pWARN_NONE ; else - PL_compiling.cop_warnings = WARN_STD ; + PL_compiling.cop_warnings = pWARN_STD ; if (filter_sub || filter_child_proc) { SV *datasv = filter_add(run_user_filter, Nullsv); -- cgit v1.2.1