diff options
| author | Brian Fraser <fraserbn@gmail.com> | 2013-03-25 01:46:43 -0300 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2013-03-26 21:06:52 -0600 |
| commit | 3f5e3f2f07f57709accec3bfe9c57bc97f48246c (patch) | |
| tree | 2aae431feaa7a99cbfc04592cdf003afab02047f /cpan | |
| parent | 33392251fee232767152e17ae40256271d793131 (diff) | |
| download | perl-3f5e3f2f07f57709accec3bfe9c57bc97f48246c.tar.gz | |
Silence "smartmatch is experimental" warnings in autodie
Diffstat (limited to 'cpan')
| -rw-r--r-- | cpan/autodie/lib/Fatal.pm | 1 | ||||
| -rw-r--r-- | cpan/autodie/t/exceptions.t | 1 |
2 files changed, 2 insertions, 0 deletions
diff --git a/cpan/autodie/lib/Fatal.pm b/cpan/autodie/lib/Fatal.pm index ce17af94ec..c6a3d1b329 100644 --- 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 2f8c2382fc..123cf8e883 100644 --- 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'; |