diff options
Diffstat (limited to 'regen/feature.pl')
-rwxr-xr-x | regen/feature.pl | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/regen/feature.pl b/regen/feature.pl index 2e8e8eb9a4..cf3ba35d53 100755 --- a/regen/feature.pl +++ b/regen/feature.pl @@ -535,6 +535,11 @@ sub import { if (@_ == 0) { croak("No features specified"); } + if (my $features = current_bundle) { + # Features are enabled implicitly via bundle hints + unshift @_, @$features; + $^H |= $hint_mask; + } while (@_) { my $name = shift(@_); if (substr($name, 0, 1) eq ":") { @@ -562,6 +567,13 @@ sub import { sub unimport { my $class = shift; + if (my $features = current_bundle) { + # Features are enabled implicitly via bundle hints + # Pass them to import() to put them in a form we can handle. + import(undef, @$features); + $^H |= $hint_mask; + } + # A bare C<no feature> should disable *all* features if (!@_) { delete @^H{ values(%feature) }; |