1 | #! perl-000 |
1 | #! perl-000 |
2 | |
2 | |
3 | our $VERSION = 3.74; |
3 | our $VERSION = 3.75; |
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 | |
27 | |
28 | no warnings; |
28 | no warnings; |
29 | use warnings qw(FATAL closed threads internal debugging pack malloc portable prototype |
29 | use warnings qw(FATAL closed threads internal debugging pack malloc prototype |
30 | inplace io pipe unpack glob digit printf |
30 | inplace io pipe unpack glob digit printf |
31 | layer reserved taint closure semicolon); |
31 | layer reserved taint closure semicolon); |
32 | no warnings qw(exec newline unopened); |
32 | no warnings qw(exec newline unopened); |
33 | |
33 | |
34 | BEGIN { |
34 | BEGIN { |