Move the locale/strict/warnings helper files back
[p5sagit/p5-mst-13.2.git] / t / lib / warnings / 8signal
CommitLineData
4438c4b7 1Check interaction of __WARN__, __DIE__ & lexical Warnings
2
3TODO
4
5__END__
6# 8signal
0da1743c 7BEGIN { $| = 1; $SIG{__WARN__} = sub { print "WARN -- @_" } }
4438c4b7 8BEGIN { $SIG{__DIE__} = sub { print "DIE -- @_" } }
551cd33c 9$a =+ 1 ;
10use warnings qw(syntax) ;
11$a =+ 1 ;
12use warnings FATAL => qw(syntax) ;
13$a =+ 1 ;
4438c4b7 14print "The End.\n" ;
15EXPECT
551cd33c 16WARN -- Reversed += operator at - line 6.
17DIE -- Reversed += operator at - line 8.
18Reversed += operator at - line 8.