From 329fb82729b690e4ac155aaf9370d7c65abab54b Mon Sep 17 00:00:00 2001 From: Victoria Ingman Date: Mon, 27 Aug 2018 09:46:38 -0400 Subject: [PATCH] Supresses smart match warning on some perl versions --- Catalysis.pm | 3 +++ 1 file changed, 3 insertions(+) diff --git a/Catalysis.pm b/Catalysis.pm index a30053d..1038251 100644 --- a/Catalysis.pm +++ b/Catalysis.pm @@ -22,6 +22,7 @@ my $CENTER = NAMES->{CENTER}; package AaronTools::Catalysis; use strict; use warnings; +no if $] >= 5.018, warnings => qw( experimental::smartmatch ); use Math::Trig; use Math::Vector::Real; use Math::MatrixReal; @@ -1202,6 +1203,7 @@ sub remove_clash { package AaronTools::Component; use strict; use warnings; +no if $] >= 5.018, warnings => qw( experimental::smartmatch ); use Math::Trig; use Math::Vector::Real; use Data::Dumper; @@ -1720,6 +1722,7 @@ sub part_LJ_energy { package AaronTools::Ligand; use strict; use warnings; +no if $] >= 5.018, warnings => qw( experimental::smartmatch ); use Math::Trig; use Math::Vector::Real; use Data::Dumper;