1__END__ 2# mg.c 3# NAME Perl_magic_setsig 4$SIG{_HUNGRY} = \&mmm_pie; 5warn "Mmm, pie"; 6EXPECT 7No such hook: _HUNGRY at - line 2. 8