diff options
| author | Nicholas Clark <nick@ccl4.org> | 2006-04-14 20:44:27 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2006-04-14 20:44:27 +0000 |
| commit | 68da3b2f7c7c528e65bc6efc19ca01bacb8f7f98 (patch) | |
| tree | 69e75b823ed74c9fcf43ef268af644b5559ec913 /pp_ctl.c | |
| parent | 92c6daad83acab71abd7df8769e308064578da8e (diff) | |
| download | perl-68da3b2f7c7c528e65bc6efc19ca01bacb8f7f98.tar.gz | |
Change SAVECOPWARNINGS(c) to SAVECOMPILEWARNINGS() - it's only used to
save the warnings on PL_compiling, so constraining its use to what we
can test seems to make sense. Particularly as testing Perl_ss_dup is
tricky.
p4raw-id: //depot/perl@27805
Diffstat (limited to 'pp_ctl.c')
| -rw-r--r-- | pp_ctl.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -3364,7 +3364,7 @@ PP(pp_require) PL_rsfp = tryrsfp; SAVEHINTS(); PL_hints = 0; - SAVECOPWARNINGS(&PL_compiling); + SAVECOMPILEWARNINGS(); if (PL_dowarn & G_WARN_ALL_ON) PL_compiling.cop_warnings = pWARN_ALL ; else if (PL_dowarn & G_WARN_ALL_OFF) @@ -3464,7 +3464,7 @@ PP(pp_entereval) PL_hints = PL_op->op_targ; if (saved_hh) GvHV(PL_hintgv) = saved_hh; - SAVECOPWARNINGS(&PL_compiling); + SAVECOMPILEWARNINGS(); PL_compiling.cop_warnings = DUP_WARNINGS(PL_curcop->cop_warnings); SAVESPTR(PL_compiling.cop_io); if (specialCopIO(PL_curcop->cop_io)) |