Add bitwise feature feature

diff --git a/feature.h b/feature.h
index 370896e..ba796eb 100644 (file)
--- a/feature.h
+++ b/feature.h
@@ -60,6 +60,12 @@
         FEATURE_IS_ENABLED("switch")) \
     )
 
+#define FEATURE_BITWISE_IS_ENABLED \
+    ( \
+       CURRENT_FEATURE_BUNDLE == FEATURE_BUNDLE_CUSTOM && \
+        FEATURE_IS_ENABLED("bitwise") \
+    )
+
 #define FEATURE_EVALBYTES_IS_ENABLED \
     ( \
        CURRENT_FEATURE_BUNDLE == FEATURE_BUNDLE_515 \

diff --git a/lib/feature.pm b/lib/feature.pm
index de237b7..e1e17d3 100644 (file)
--- a/lib/feature.pm
+++ b/lib/feature.pm
@@ -12,6 +12,7 @@ our %feature = (
     say             => 'feature_say',
     state           => 'feature_state',
     switch          => 'feature_switch',
+    bitwise         => 'feature_bitwise',
     evalbytes       => 'feature_evalbytes',
     postderef       => 'feature_postderef',
     array_base      => 'feature_arybase',
@@ -28,7 +29,7 @@ our %feature_bundle = (
     "5.10"    => [qw(array_base say state switch)],
     "5.11"    => [qw(array_base say state switch unicode_strings)],
     "5.15"    => [qw(current_sub evalbytes fc say state switch unicode_eval unicode_strings)],
-    "all"     => [qw(array_base current_sub evalbytes fc lexical_subs postderef postderef_qq refaliasing say signatures state switch unicode_eval unicode_strings)],
+    "all"     => [qw(array_base bitwise current_sub evalbytes fc lexical_subs postderef postderef_qq refaliasing say signatures state switch unicode_eval unicode_strings)],
     "default" => [qw(array_base)],
 );
 

diff --git a/regen/feature.pl b/regen/feature.pl
index 0d41d3b..a402626 100755 (executable)
--- a/regen/feature.pl
+++ b/regen/feature.pl
@@ -25,6 +25,7 @@ my %feature = (
     say             => 'say',
     state           => 'state',
     switch          => 'switch',
+    bitwise         => 'bitwise',
     evalbytes       => 'evalbytes',
     postderef       => 'postderef',
     array_base      => 'arybase',