diff options
author | Nicholas Clark <nick@ccl4.org> | 2012-02-28 23:54:10 +0100 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2012-03-13 17:29:28 +0100 |
commit | c34ea0a3a21d8551300c7e78a2c3aee8353c7ca7 (patch) | |
tree | a433a8cc05af1d3db939c71e1b7ab2d9bf934cf4 | |
parent | 1f410b55aee24913370c007697f572d27368ca9a (diff) | |
download | perl-smoke-me/feature-code-shrink.tar.gz |
In feature.pm, inline current_bundle() into __common(), its only caller.smoke-me/feature-code-shrink
current_bundle() was added after 5.14.0 was released, so has never been in
a stable release. Hence it's totally safe to kill it.
-rw-r--r-- | lib/feature.pm | 11 | ||||
-rwxr-xr-x | regen/feature.pl | 11 |
2 files changed, 8 insertions, 14 deletions
diff --git a/lib/feature.pm b/lib/feature.pm index 3f29d781b8..87b42aa916 100644 --- a/lib/feature.pm +++ b/lib/feature.pm @@ -299,12 +299,6 @@ bundle is automatically loaded instead. =cut -sub current_bundle { - my $bundle_number = $^H & $hint_mask; - return if $bundle_number == $hint_mask; - return $feature_bundle{$hint_bundles[$bundle_number >> $hint_shift]}; -} - sub import { my $class = shift; @@ -330,7 +324,10 @@ sub unimport { sub __common { my $import = shift; - if (my $features = current_bundle) { + my $bundle_number = $^H & $hint_mask; + my $features = $bundle_number != $hint_mask + && $feature_bundle{$hint_bundles[$bundle_number >> $hint_shift]}; + if ($features) { # Features are enabled implicitly via bundle hints. # Delete any keys that may be left over from last time. delete @^H{ values(%feature) }; diff --git a/regen/feature.pl b/regen/feature.pl index 7f59847a9d..2a8d369ba2 100755 --- a/regen/feature.pl +++ b/regen/feature.pl @@ -583,12 +583,6 @@ bundle is automatically loaded instead. =cut -sub current_bundle { - my $bundle_number = $^H & $hint_mask; - return if $bundle_number == $hint_mask; - return $feature_bundle{$hint_bundles[$bundle_number >> $hint_shift]}; -} - sub import { my $class = shift; @@ -614,7 +608,10 @@ sub unimport { sub __common { my $import = shift; - if (my $features = current_bundle) { + my $bundle_number = $^H & $hint_mask; + my $features = $bundle_number != $hint_mask + && $feature_bundle{$hint_bundles[$bundle_number >> $hint_shift]}; + if ($features) { # Features are enabled implicitly via bundle hints. # Delete any keys that may be left over from last time. delete @^H{ values(%feature) }; |