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

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/
H A Dsigtrap.t33 is( $SIG{AFAKE}, \&sigtrap::handler_die, 'install the die handler' );
66 # handler_die croaks with first argument
67 eval { sigtrap::handler_die('FAKE') };
68 like( $@, qr/^Caught a SIGFAKE/, 'does handler_die() croak?' );
H A Dsigtrap.pm47 $handler = \&handler_die;
78 sub handler_die { subroutine

Completed in 15 milliseconds