[perl5.git] / t / lib / warnings / 8signal

Check interaction of __WARN__, __DIE__ & lexical Warnings

TODO

__END__
# 8signal
BEGIN { $| = 1; $SIG{__WARN__} = sub { print "WARN -- @_" } }
BEGIN { $SIG{__DIE__}  = sub { print "DIE -- @_" } }
$a =+ 1 ;
use warnings qw(syntax) ;
$a =+ 1 ;
use warnings FATAL => qw(syntax) ;
$a =+ 1 ;
print "The End.\n" ;
EXPECT
WARN -- Reversed += operator at - line 6.
DIE -- Reversed += operator at - line 8.
Reversed += operator at - line 8.
Commit	Line	Data
4438c4b7 JH	1	Check interaction of __WARN__, __DIE__ & lexical Warnings
	2
	3	TODO
	4
	5	__END__
	6	# 8signal
0da1743c	7	BEGIN { $\| = 1; $SIG{__WARN__} = sub { print "WARN -- @_" } }
4438c4b7	8	BEGIN { $SIG{__DIE__} = sub { print "DIE -- @_" } }
551cd33c JH	9	$a =+ 1 ;
	10	use warnings qw(syntax) ;
	11	$a =+ 1 ;
	12	use warnings FATAL => qw(syntax) ;
	13	$a =+ 1 ;
4438c4b7 JH	14	print "The End.\n" ;
4438c4b7 JH	15	EXPECT
551cd33c JH	16	WARN -- Reversed += operator at - line 6.
	17	DIE -- Reversed += operator at - line 8.
	18	Reversed += operator at - line 8.