Update experimental to 0.029

Perl · Oct 28, 2022 · fdc8a0b · fdc8a0b
1 parent 7e21f44
commit fdc8a0b
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 3 deletions.
diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl
@@ -413,7 +413,7 @@ package Maintainers;
     },
 
     'experimental' => {
-        'DISTRIBUTION' => 'LEONT/experimental-0.028.tar.gz',
+        'DISTRIBUTION' => 'LEONT/experimental-0.029.tar.gz',
         'FILES'        => q[cpan/experimental],
         'EXCLUDED'     => [qr{^xt/}],
     },

diff --git a/cpan/experimental/lib/experimental.pm b/cpan/experimental/lib/experimental.pm
@@ -1,5 +1,5 @@
 package experimental;
-$experimental::VERSION = '0.028';
+$experimental::VERSION = '0.029';
 use strict;
 use warnings;
 use version ();
@@ -8,6 +8,7 @@ BEGIN { eval { require feature } };
 use Carp qw/croak carp/;
 
 my %warnings = map { $_ => 1 } grep { /^experimental::/ } keys %warnings::Offsets;
+my %removed_warnings = map { $_ => 1 } grep { /^experimental::/ } keys %warnings::NoOp;
 my %features = map { $_ => 1 } $] > 5.015006 ? keys %feature::feature : do {
 	my @features;
 	if ($] >= 5.010) {
@@ -73,6 +74,9 @@ sub _enable {
 		feature->import($pragma);
 		_enable(@{ $additional{$pragma} }) if $additional{$pragma};
 	}
+	elsif ($removed_warnings{"experimental::$pragma"}) {
+		_enable(@{ $additional{$pragma} }) if $additional{$pragma};
+	}
 	elsif (not exists $min_version{$pragma}) {
 		croak "Can't enable unknown feature $pragma";
 	}
@@ -136,7 +140,7 @@ experimental - Experimental features made easy
 
 =head1 VERSION
 
-version 0.028
+version 0.029
 
 =head1 SYNOPSIS