| … | |
… | |
| 21 | inplace io pipe unpack deprecated glob digit printf |
21 | inplace io pipe unpack deprecated glob digit printf |
| 22 | layer reserved taint closure semicolon); |
22 | layer reserved taint closure semicolon); |
| 23 | no warnings qw(exec newline unopened); |
23 | no warnings qw(exec newline unopened); |
| 24 | |
24 | |
| 25 | BEGIN { |
25 | BEGIN { |
| 26 | my $H = $^H; |
|
|
| 27 | my $WARN = ${^WARNING_BITS}; |
|
|
| 28 | |
|
|
| 29 | print "sub AnyEvent::common_sense {\n"; |
26 | print "sub AnyEvent::common_sense {\n"; |
| 30 | printf " local \$^W;\n"; |
27 | printf " local \$^W;\n"; |
| 31 | printf " \${^WARNING_BITS} ^= \${^WARNING_BITS} ^ \"%s\";\n", |
28 | printf " \${^WARNING_BITS} ^= \${^WARNING_BITS} ^ \"%s\";\n", |
| 32 | join "", map "\\x$_", unpack "(H2)*", ${^WARNING_BITS}; |
29 | join "", map "\\x$_", unpack "(H2)*", ${^WARNING_BITS}; |
| 33 | # use strict, use utf8; |
30 | # use strict, use utf8; |
