Mega Code Archive

 

Categories / Perl / Language Basics

 

$SIG{__WARN__} = IGNORE

$SIG{__WARN__} = 'IGNORE';     warn; #$SIG{__WARN__} = sub {};  #$SIG{__WARN__} = 'DEFAULT';    #$SIG{__WARN__} = sub {die};