| Line | |
|---|
| 1 | Check interaction of __WARN__, __DIE__ & lexical Warnings
|
|---|
| 2 |
|
|---|
| 3 | TODO
|
|---|
| 4 |
|
|---|
| 5 | __END__
|
|---|
| 6 | # 8signal
|
|---|
| 7 | BEGIN { $| = 1; $SIG{__WARN__} = sub { print "WARN -- @_" } }
|
|---|
| 8 | BEGIN { $SIG{__DIE__} = sub { print "DIE -- @_" } }
|
|---|
| 9 | $a =+ 1 ;
|
|---|
| 10 | use warnings qw(syntax) ;
|
|---|
| 11 | $a =+ 1 ;
|
|---|
| 12 | use warnings FATAL => qw(syntax) ;
|
|---|
| 13 | $a =+ 1 ;
|
|---|
| 14 | print "The End.\n" ;
|
|---|
| 15 | EXPECT
|
|---|
| 16 | WARN -- Reversed += operator at - line 6.
|
|---|
| 17 | DIE -- Reversed += operator at - line 8.
|
|---|
| 18 | Reversed += operator at - line 8.
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
