Add support for deprecated::smartmatch in experimental

This patch must be sent upstream.

Author: book

cpan/experimental/lib/experimental.pm

@@ -1,13 +1,13 @@
 package experimental;
-$experimental::VERSION = '0.028';
+$experimental::VERSION = '0.029';
 use strict;
 use warnings;
 use version ();
 
 BEGIN { eval { require feature } };
 use Carp qw/croak carp/;
 
-my %warnings = map { $_ => 1 } grep { /^experimental::/ } keys %warnings::Offsets;
+my %warnings = map { $_ => 1 } grep { /^(?:experimental|deprecated)::/ } keys %warnings::Offsets;
 my %features = map { $_ => 1 } $] > 5.015006 ? keys %feature::feature : do {
 	my @features;
 	if ($] >= 5.010) {
@@ -64,8 +64,9 @@ my %additional = (
 
 sub _enable {
 	my $pragma = shift;
-	if ($warnings{"experimental::$pragma"}) {
-		warnings->unimport("experimental::$pragma");
+	if ($warnings{"experimental::$pragma"} || $warnings{"deprecated::$pragma"}) {
+		warnings->unimport("experimental::$pragma") if $warnings{"experimental::$pragma"};
+		warnings->unimport("deprecated::$pragma") if $warnings{"deprecated::$pragma"};
 		feature->import($pragma) if exists $features{$pragma};
 		_enable(@{ $additional{$pragma} }) if $additional{$pragma};
 	}