| 1 | #! perl-000 |
1 | #! perl-000 |
| 2 | |
2 | |
| 3 | our $VERSION = '3.72'; |
3 | our $VERSION = '3.73'; |
| 4 | |
4 | |
| 5 | open STDOUT, ">$ARGV[0]~" |
5 | open STDOUT, ">$ARGV[0]~" |
| 6 | or die "$ARGV[0]~: $!"; |
6 | or die "$ARGV[0]~: $!"; |
| 7 | |
7 | |
| 8 | our ($WARN, $H, %H); |
8 | our ($WARN, $H, %H); |
| … | |
… | |
| 24 | } |
24 | } |
| 25 | } |
25 | } |
| 26 | |
26 | |
| 27 | no warnings; |
27 | no warnings; |
| 28 | use warnings qw(FATAL closed threads internal debugging pack malloc portable prototype |
28 | use warnings qw(FATAL closed threads internal debugging pack malloc portable prototype |
| 29 | inplace io pipe unpack deprecated glob digit printf |
29 | inplace io pipe unpack glob digit printf |
| 30 | layer reserved taint closure semicolon); |
30 | layer reserved taint closure semicolon); |
| 31 | no warnings qw(exec newline unopened); |
31 | no warnings qw(exec newline unopened); |
| 32 | |
32 | |
| 33 | BEGIN { |
33 | BEGIN { |
| 34 | $H = $^H; |
34 | $H = $^H; |
