[perl5.git] / t / lib / croak / mg

__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.
Commit	Line	Data
59e38755 TC	1	__END__
	2	# mg.c
	3	# NAME Perl_magic_setsig
	4	$SIG{_HUNGRY} = \&mmm_pie;
	5	warn "Mmm, pie";
	6	EXPECT
	7	No such hook: _HUNGRY at - line 2.
fd503f5c DIM	8	########
	9	# NAME ${^ENCODING}
	10	${^ENCODING} = undef;
	11	{ local ${^ENCODING}; }
	12	${^ENCODING} = 42;
	13	EXPECT
	14	${^ENCODING} is no longer supported at - line 3.