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########
9# NAME ${^ENCODING}
10${^ENCODING} = undef;
11{ local ${^ENCODING}; }
12${^ENCODING} = 42;
13EXPECT
14${^ENCODING} is no longer supported at - line 3.
15