gnu/usr.bin/perl/t/lib/croak/mg


1
2
3
4
5
6
7
8
9
10
11
12
13
14

__END__
# mg.c
# NAME Perl_magic_setsig
$SIG{_HUNGRY} = \&mmm_pie;
warn "Mmm, pie";
EXPECT
No such hook: _HUNGRY at - line 2.
########
# NAME ${^ENCODING}
${^ENCODING} = undef;
{ local ${^ENCODING}; }
${^ENCODING} = 42;
EXPECT
${^ENCODING} is no longer supported at - line 3.