Fix smartmatch warnings on perl >= 5.018

1 files changed, 2 insertions, 0 deletions

diff --git a/bin/raps2 b/bin/raps2
index ccb5e01..763ffaa 100755
--- a/bin/raps2
+++ b/bin/raps2
@@ -6,6 +6,8 @@ use strict;
 use warnings;
 use 5.010;
 
+no if $] >= 5.018, warnings => "experimental::smartmatch";
+
 use App::Raps2;
 use File::BaseDir qw(data_files data_home);
 use File::Slurp qw(read_dir);