Searched defs:warn_trap (Results 1 - 1 of 1) sorted by relevance

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/
H A Ddiagnostics.pm431 return if defined $SIG{__WARN__} && ($SIG{__WARN__} eq \&warn_trap);
456 $SIG{__WARN__} = \&warn_trap;
464 return unless $SIG{__WARN__} eq \&warn_trap;
469 sub warn_trap { subroutine
474 &$oldwarn if defined $oldwarn and $oldwarn and $oldwarn ne \&warn_trap;

Completed in 22 milliseconds