Searched refs:old_warnings (Results 1 - 1 of 1) sorted by relevance

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/
H A Dpp_ctl.c1570 SV * old_warnings = cx->blk_oldcop->cop_warnings ; local
1572 if (old_warnings == pWARN_NONE ||
1573 (old_warnings == pWARN_STD && (PL_dowarn & G_WARN_ON) == 0))
1575 else if (old_warnings == pWARN_ALL ||
1576 (old_warnings == pWARN_STD && PL_dowarn & G_WARN_ON))
1579 mask = newSVsv(old_warnings);

Completed in 129 milliseconds