[p5sagit/p5-mst-13.2.git] / t / pragma / warn / 8signal

Check interaction of __WARN__, __DIE__ & lexical Warnings

TODO

__END__
# 8signal
BEGIN { $| = 1; $SIG{__WARN__} = sub { print "WARN -- @_" } }
BEGIN { $SIG{__DIE__}  = sub { print "DIE -- @_" } }
1 if 1 EQ 2 ;
use warnings qw(deprecated) ;
1 if 1 EQ 2 ;
use warnings FATAL => qw(deprecated) ;
1 if 1 EQ 2 ;
print "The End.\n" ;
EXPECT
WARN -- Use of EQ is deprecated at - line 6.
DIE -- Use of EQ is deprecated at - line 8.
Use of EQ is deprecated at - line 8.
Commit	Line	Data
4438c4b7	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 -- @_" } }
a4f5cc89	9	1 if 1 EQ 2 ;
	10	use warnings qw(deprecated) ;
	11	1 if 1 EQ 2 ;
	12	use warnings FATAL => qw(deprecated) ;
	13	1 if 1 EQ 2 ;
4438c4b7	14	print "The End.\n" ;
4438c4b7	15	EXPECT
a4f5cc89	16	WARN -- Use of EQ is deprecated at - line 6.
	17	DIE -- Use of EQ is deprecated at - line 8.
	18	Use of EQ is deprecated at - line 8.