Support for deprecated smartmatch in autodie [for upstream]

Author: book

cpan/autodie/lib/Fatal.pm

@@ -55,7 +55,7 @@ use constant ERROR_58_HINTS => q{Non-subroutine %s hints for %s are not supporte
 
 use constant MIN_IPC_SYS_SIMPLE_VER => 0.12;
 
-our $VERSION = '2.34'; # VERSION: Generated by DZP::OurPkg::Version
+our $VERSION = '2.35'; # VERSION: Generated by DZP::OurPkg::Version
 
 our $Debug ||= 0;
 
@@ -170,6 +170,7 @@ my %TAGS = (
     ':2.32'  => [qw(:default)],
     ':2.33'  => [qw(:default)],
     ':2.34'  => [qw(:default)],
+    ':2.35'  => [qw(:default)],
 );
 
 
@@ -1088,6 +1089,7 @@ sub _one_invocation {
     my $code = qq[
         no warnings qw(unopened uninitialized numeric);
         no if \$\] >= 5.017011, warnings => "experimental::smartmatch";
+        no if \$warnings::Offsets{"deprecated::smartmatch"}, warnings => "deprecated";
 
         if (wantarray) {
             my \@results = $call(@argv);

cpan/autodie/lib/autodie.pm

@@ -9,7 +9,7 @@ our $VERSION;
 # ABSTRACT: Replace functions with ones that succeed or die with lexical scope
 
 BEGIN {
-    our $VERSION = '2.34'; # VERSION: Generated by DZP::OurPkg::Version
+    our $VERSION = '2.35'; # VERSION: Generated by DZP::OurPkg::Version
 }
 
 use constant ERROR_WRONG_FATAL => q{

cpan/autodie/lib/autodie/Scope/Guard.pm

@@ -4,7 +4,7 @@ use strict;
 use warnings;
 
 # ABSTRACT: Wrapper class for calling subs at end of scope
-our $VERSION = '2.34'; # VERSION
+our $VERSION = '2.35'; # VERSION
 
 # This code schedules the cleanup of subroutines at the end of
 # scope.  It's directly inspired by chocolateboy's excellent

cpan/autodie/lib/autodie/Scope/GuardStack.pm

@@ -6,7 +6,7 @@ use warnings;
 use autodie::Scope::Guard;
 
 # ABSTRACT: Hook stack for managing scopes via %^H
-our $VERSION = '2.34'; # VERSION
+our $VERSION = '2.35'; # VERSION
 
 my $H_KEY_STEM = __PACKAGE__ . '/guard';
 my $COUNTER = 0;

cpan/autodie/lib/autodie/Util.pm

@@ -14,7 +14,7 @@ our @EXPORT_OK = qw(
   on_end_of_compile_scope
 );
 
-our $VERSION = '2.34'; # VERSION: Generated by DZP::OurPkg:Version
+our $VERSION = '2.35'; # VERSION: Generated by DZP::OurPkg:Version
 
 # ABSTRACT: Internal Utility subroutines for autodie and Fatal
 

cpan/autodie/lib/autodie/exception.pm

@@ -6,7 +6,7 @@ use Carp qw(croak);
 
 use Scalar::Util qw(blessed);
 
-our $VERSION = '2.34'; # VERSION: Generated by DZP::OurPkg:Version
+our $VERSION = '2.35'; # VERSION: Generated by DZP::OurPkg:Version
 # ABSTRACT: Exceptions from autodying functions.
 
 our $DEBUG = 0;

cpan/autodie/lib/autodie/exception/system.pm

@@ -5,7 +5,7 @@ use warnings;
 use parent 'autodie::exception';
 use Carp qw(croak);
 
-our $VERSION = '2.34'; # VERSION: Generated by DZP::OurPkg:Version
+our $VERSION = '2.35'; # VERSION: Generated by DZP::OurPkg:Version
 
 # ABSTRACT: Exceptions from autodying system().
 

cpan/autodie/lib/autodie/hints.pm

@@ -5,7 +5,7 @@ use warnings;
 
 use constant PERL58 => ( $] < 5.009 );
 
-our $VERSION = '2.34'; # VERSION: Generated by DZP::OurPkg:Version
+our $VERSION = '2.35'; # VERSION: Generated by DZP::OurPkg:Version
 
 # ABSTRACT: Provide hints about user subroutines to autodie
 

cpan/autodie/lib/autodie/skip.pm

@@ -2,7 +2,7 @@ package autodie::skip;
 use strict;
 use warnings;
 
-our $VERSION = '2.34'; # VERSION
+our $VERSION = '2.35'; # VERSION
 
 # This package exists purely so people can inherit from it,
 # which isn't at all how roles are supposed to work, but it's

cpan/autodie/t/exceptions.t

@@ -8,8 +8,11 @@ BEGIN { plan skip_all => "Perl 5.10 only tests" if $] < 5.010; }
 # Basic tests should go in basic_exceptions.t
 
 use 5.010;
+use warnings ();
 use constant NO_SUCH_FILE => 'this_file_had_better_not_exist_xyzzy';
 no if $] >= 5.017011, warnings => "experimental::smartmatch";
+no if exists $warnings::Offsets{"deprecated::smartmatch"},
+  warnings => "deprecated";
 
 plan 'no_plan';