This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Silence "smartmatch is experimental" warnings in autodie
authorBrian Fraser <fraserbn@gmail.com>
Mon, 25 Mar 2013 04:46:43 +0000 (01:46 -0300)
committerKarl Williamson <public@khwilliamson.com>
Wed, 27 Mar 2013 03:06:52 +0000 (21:06 -0600)
cpan/autodie/lib/Fatal.pm
cpan/autodie/t/exceptions.t

index ce17af9..c6a3d1b 100644 (file)
@@ -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);
index 2f8c238..123cf8e 100644 (file)
@@ -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';