1 | #! perl-000 |
1 | #! perl-000 |
2 | |
2 | |
3 | our $VERSION = '3.73'; |
3 | our $VERSION = 3.74; |
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); |
… | |
… | |
20 | } |
20 | } |
21 | if ($] >= 5.016) { |
21 | if ($] >= 5.016) { |
22 | feature->import (qw(current_sub fc evalbytes)); |
22 | feature->import (qw(current_sub fc evalbytes)); |
23 | feature->unimport (qw(array_base)); |
23 | feature->unimport (qw(array_base)); |
24 | } |
24 | } |
|
|
25 | |
25 | } |
26 | } |
26 | |
27 | |
27 | no warnings; |
28 | no warnings; |
28 | use warnings qw(FATAL closed threads internal debugging pack malloc portable prototype |
29 | use warnings qw(FATAL closed threads internal debugging pack malloc portable prototype |
29 | inplace io pipe unpack glob digit printf |
30 | inplace io pipe unpack glob digit printf |
… | |
… | |
42 | printf " \${^WARNING_BITS} ^= \${^WARNING_BITS} ^ \"%s\";\n", |
43 | printf " \${^WARNING_BITS} ^= \${^WARNING_BITS} ^ \"%s\";\n", |
43 | join "", map "\\x$_", unpack "(H2)*", $WARN; |
44 | join "", map "\\x$_", unpack "(H2)*", $WARN; |
44 | print " # use strict, use utf8; use feature;\n"; |
45 | print " # use strict, use utf8; use feature;\n"; |
45 | printf " \$^H |= 0x%x;\n", $H; |
46 | printf " \$^H |= 0x%x;\n", $H; |
46 | |
47 | |
47 | if (my @features = grep /^feature_/, keys %H) { |
48 | if (my @features = grep /^feature_/, sort keys %H) { |
48 | print " \@^H{qw(@features)} = (1) x ", (scalar @features), ";\n"; |
49 | print " \@^H{qw(@features)} = (1) x ", (scalar @features), ";\n"; |
49 | } |
50 | } |
50 | } elsif (/^VERSION/) { |
51 | } elsif (/^VERSION/) { |
51 | print "our \$VERSION = $VERSION;\n"; |
52 | print "our \$VERSION = $VERSION;\n"; |
52 | } else { |
53 | } else { |