| 1 | #! perl-000 |
1 | #! perl-000 |
|
|
2 | |
|
|
3 | our $VERSION = 3.74; |
| 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); |
| … | |
… | |
| 18 | } |
20 | } |
| 19 | if ($] >= 5.016) { |
21 | if ($] >= 5.016) { |
| 20 | feature->import (qw(current_sub fc evalbytes)); |
22 | feature->import (qw(current_sub fc evalbytes)); |
| 21 | feature->unimport (qw(array_base)); |
23 | feature->unimport (qw(array_base)); |
| 22 | } |
24 | } |
|
|
25 | |
| 23 | } |
26 | } |
| 24 | |
27 | |
| 25 | no warnings; |
28 | no warnings; |
| 26 | 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 |
| 27 | inplace io pipe unpack deprecated glob digit printf |
30 | inplace io pipe unpack glob digit printf |
| 28 | layer reserved taint closure semicolon); |
31 | layer reserved taint closure semicolon); |
| 29 | no warnings qw(exec newline unopened); |
32 | no warnings qw(exec newline unopened); |
| 30 | |
33 | |
| 31 | BEGIN { |
34 | BEGIN { |
| 32 | $H = $^H; |
35 | $H = $^H; |
| … | |
… | |
| 43 | printf " \$^H |= 0x%x;\n", $H; |
46 | printf " \$^H |= 0x%x;\n", $H; |
| 44 | |
47 | |
| 45 | if (my @features = grep /^feature_/, keys %H) { |
48 | if (my @features = grep /^feature_/, keys %H) { |
| 46 | print " \@^H{qw(@features)} = (1) x ", (scalar @features), ";\n"; |
49 | print " \@^H{qw(@features)} = (1) x ", (scalar @features), ";\n"; |
| 47 | } |
50 | } |
|
|
51 | } elsif (/^VERSION/) { |
|
|
52 | print "our \$VERSION = $VERSION;\n"; |
| 48 | } else { |
53 | } else { |
| 49 | print; |
54 | print; |
| 50 | } |
55 | } |
| 51 | } |
56 | } |
| 52 | |
57 | |
| … | |
… | |
| 54 | rename "$ARGV[0]~", $ARGV[0]; |
59 | rename "$ARGV[0]~", $ARGV[0]; |
| 55 | |
60 | |
| 56 | __DATA__ |
61 | __DATA__ |
| 57 | package common::sense; |
62 | package common::sense; |
| 58 | |
63 | |
| 59 | our $VERSION = '3.7'; |
64 | VERSION |
| 60 | |
65 | |
| 61 | # overload should be included |
66 | # overload should be included |
| 62 | |
67 | |
| 63 | sub import { |
68 | sub import { |
| 64 | local $^W; # work around perl 5.16 spewing out warnings for next statement |
69 | local $^W; # work around perl 5.16 spewing out warnings for next statement |
