Mega Code Archive

 

Categories / Perl / Language Basics

 

$SIG{__WARN__} = sub {die Warning

$SIG{__WARN__} = sub {die "Warning: $_[0]"}; warn;