summaryrefslogtreecommitdiff
path: root/regen/feature.pl
diff options
context:
space:
mode:
Diffstat (limited to 'regen/feature.pl')
-rwxr-xr-xregen/feature.pl12
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) };