diff options
| author | Max Maischein <corion@corion.net> | 2022-10-28 12:21:33 +0200 |
|---|---|---|
| committer | Max Maischein <corion@corion.net> | 2022-10-28 12:21:33 +0200 |
| commit | fdc8a0b8e1aeac289a51d262529cac854f33f023 (patch) | |
| tree | ef6dedf4419c9b0b1f189788492127240d855d4f /cpan | |
| parent | 7e21f44e9c255467323689fdcc1cf4ec8d120ca2 (diff) | |
| download | perl-fdc8a0b8e1aeac289a51d262529cac854f33f023.tar.gz | |
Update experimental to 0.029
Diffstat (limited to 'cpan')
| -rw-r--r-- | cpan/experimental/lib/experimental.pm | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/cpan/experimental/lib/experimental.pm b/cpan/experimental/lib/experimental.pm index a40935b04d..1a55b17b3f 100644 --- 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 |