1 | #! perl-000 |
1 | #! perl-000 |
|
|
2 | |
|
|
3 | our $VERSION = '3.71'; |
2 | |
4 | |
3 | open STDOUT, ">$ARGV[0]~" |
5 | open STDOUT, ">$ARGV[0]~" |
4 | or die "$ARGV[0]~: $!"; |
6 | or die "$ARGV[0]~: $!"; |
5 | |
7 | |
6 | our ($WARN, $H, %H); |
8 | our ($WARN, $H, %H); |
… | |
… | |
43 | printf " \$^H |= 0x%x;\n", $H; |
45 | printf " \$^H |= 0x%x;\n", $H; |
44 | |
46 | |
45 | if (my @features = grep /^feature_/, keys %H) { |
47 | if (my @features = grep /^feature_/, keys %H) { |
46 | print " \@^H{qw(@features)} = (1) x ", (scalar @features), ";\n"; |
48 | print " \@^H{qw(@features)} = (1) x ", (scalar @features), ";\n"; |
47 | } |
49 | } |
|
|
50 | } elsif (/^VERSION/) { |
|
|
51 | print "our \$VERSION = $VERSION;\n"; |
48 | } else { |
52 | } else { |
49 | print; |
53 | print; |
50 | } |
54 | } |
51 | } |
55 | } |
52 | |
56 | |
… | |
… | |
54 | rename "$ARGV[0]~", $ARGV[0]; |
58 | rename "$ARGV[0]~", $ARGV[0]; |
55 | |
59 | |
56 | __DATA__ |
60 | __DATA__ |
57 | package common::sense; |
61 | package common::sense; |
58 | |
62 | |
59 | our $VERSION = '3.7'; |
63 | VERSION |
60 | |
64 | |
61 | # overload should be included |
65 | # overload should be included |
62 | |
66 | |
63 | sub import { |
67 | sub import { |
64 | local $^W; # work around perl 5.16 spewing out warnings for next statement |
68 | local $^W; # work around perl 5.16 spewing out warnings for next statement |