Silence "smartmatch is experimental" warnings in autodie

diff --git a/cpan/autodie/lib/Fatal.pm b/cpan/autodie/lib/Fatal.pm
index ce17af9..c6a3d1b 100644 (file)
--- a/cpan/autodie/lib/Fatal.pm
+++ b/cpan/autodie/lib/Fatal.pm
@@ -859,6 +859,7 @@ sub _one_invocation {
 
     my $code = qq[
         no warnings qw(unopened uninitialized numeric);
+        no if \$\] >= 5.017011, warnings => "experimental::smartmatch";
 
         if (wantarray) {
             my \@results = $call(@argv);

diff --git a/cpan/autodie/t/exceptions.t b/cpan/autodie/t/exceptions.t
index 2f8c238..123cf8e 100644 (file)
--- a/cpan/autodie/t/exceptions.t
+++ b/cpan/autodie/t/exceptions.t
@@ -9,6 +9,7 @@ BEGIN { plan skip_all => "Perl 5.10 only tests" if $] < 5.010; }
 
 use 5.010;
 use constant NO_SUCH_FILE => 'this_file_had_better_not_exist_xyzzy';
+no if $] >= 5.017011, warnings => "experimental::smartmatch";
 
 plan 'no_plan';