fix smartmatch warnings on perl >= 5.018

2 files changed, 4 insertions, 0 deletions

diff --git a/bin/efa-m b/bin/efa-m
index 6feb839..b0c3a39 100755
--- a/bin/efa-m
+++ b/bin/efa-m
@@ -3,6 +3,8 @@ use strict;
 use warnings;
 use 5.010;
 
+no if $] >= 5.018, warnings => "experimental::smartmatch";
+
 our $VERSION = '1.02';
 
 binmode( STDOUT, ':encoding(utf-8)' );
diff --git a/lib/Travel/Status/DE/VRR.pm b/lib/Travel/Status/DE/VRR.pm
index 2594fa8..1a3cd3f 100644
--- a/lib/Travel/Status/DE/VRR.pm
+++ b/lib/Travel/Status/DE/VRR.pm
@@ -4,6 +4,8 @@ use strict;
 use warnings;
 use 5.010;
 
+no if $] >= 5.018, warnings => "experimental::smartmatch";
+
 our $VERSION = '1.02';
 
 use Carp qw(confess cluck);