fix smartmatch warnings on perl >= 5.018

1 files changed, 2 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)' );