diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2011-12-24 06:47:41 -0800 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-12-24 09:25:21 -0800 |
| commit | 0bb01b05aacbaf29e0a910c8f0bc3ab2eb39f8a0 (patch) | |
| tree | bf083bf4597021ef244990b73929067072564169 /regen/feature.pl | |
| parent | 223b1722e239dec6362760bb4d15561271c666bf (diff) | |
| download | perl-0bb01b05aacbaf29e0a910c8f0bc3ab2eb39f8a0.tar.gz | |
Deparse implicit with ‘use feature’
When a version declaration has been seen, it’s not possible to deparse
the code perfectly correctly, but using ‘no feature; use feature
"5.14"’ is a reasonable tradeoff. See also commit 1c74777c25.
This necessitated sorting %^H keys that are output to keep tests pass-
ing. Previously they were relying on phases of the moon.
Diffstat (limited to 'regen/feature.pl')
| -rwxr-xr-x | regen/feature.pl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/regen/feature.pl b/regen/feature.pl index cea90fb393..a10ceb8658 100755 --- a/regen/feature.pl +++ b/regen/feature.pl @@ -136,7 +136,7 @@ sub longest { $long; } -print $pm "my %feature = (\n"; +print $pm "our %feature = (\n"; my $width = length longest keys %feature; for(sort { length $a <=> length $b } keys %feature) { print $pm " $_" . " "x($width-length) @@ -161,9 +161,9 @@ for (sort keys %Aliases) { print $pm <<EOPM; -my \$hint_shift = $HintShift; -my \$hint_mask = $HintMask; -my \@hint_bundles = qw( @HintedBundles ); +our \$hint_shift = $HintShift; +our \$hint_mask = $HintMask; +our \@hint_bundles = qw( @HintedBundles ); EOPM |