summaryrefslogtreecommitdiff
path: root/lib/feature.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/feature.pm')
-rw-r--r--lib/feature.pm12
1 files changed, 12 insertions, 0 deletions
diff --git a/lib/feature.pm b/lib/feature.pm
index 2c1d5266ef..6f7af31771 100644
--- a/lib/feature.pm
+++ b/lib/feature.pm
@@ -301,6 +301,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 ":") {
@@ -328,6 +333,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) };