| … | |
… | |
| 43 | printf " \${^WARNING_BITS} ^= \${^WARNING_BITS} ^ \"%s\";\n", |
43 | printf " \${^WARNING_BITS} ^= \${^WARNING_BITS} ^ \"%s\";\n", |
| 44 | join "", map "\\x$_", unpack "(H2)*", $WARN; |
44 | join "", map "\\x$_", unpack "(H2)*", $WARN; |
| 45 | print " # use strict, use utf8; use feature;\n"; |
45 | print " # use strict, use utf8; use feature;\n"; |
| 46 | printf " \$^H |= 0x%x;\n", $H; |
46 | printf " \$^H |= 0x%x;\n", $H; |
| 47 | |
47 | |
| 48 | if (my @features = grep /^feature_/, keys %H) { |
48 | if (my @features = grep /^feature_/, sort keys %H) { |
| 49 | print " \@^H{qw(@features)} = (1) x ", (scalar @features), ";\n"; |
49 | print " \@^H{qw(@features)} = (1) x ", (scalar @features), ";\n"; |
| 50 | } |
50 | } |
| 51 | } elsif (/^VERSION/) { |
51 | } elsif (/^VERSION/) { |
| 52 | print "our \$VERSION = $VERSION;\n"; |
52 | print "our \$VERSION = $VERSION;\n"; |
| 53 | } else { |
53 | } else { |
