diff --git a/frontend.pm b/frontend.pm index d9fa11b..67b0dfc 100644 --- a/frontend.pm +++ b/frontend.pm @@ -29,6 +29,7 @@ use frontend_routes; use feature qw(switch); use strict; use warnings; +no warnings qw(experimental::smartmatch); sub readFullFile { my $aFile = $_[0]; diff --git a/frontend_routes.pm b/frontend_routes.pm index 269bcba..0a577a3 100644 --- a/frontend_routes.pm +++ b/frontend_routes.pm @@ -26,6 +26,7 @@ use threads::shared; use feature qw(switch); use strict; use warnings; +no warnings qw(experimental::smartmatch); sub verifyRequestPrivileges { my $aRequest = $_[0]; diff --git a/logger.pm b/logger.pm index 1359155..2180e42 100644 --- a/logger.pm +++ b/logger.pm @@ -30,6 +30,7 @@ use configuration; use feature qw(switch); use strict; use warnings; +no warnings qw(experimental::smartmatch); sub connectToServer { my $aServer = $_[0];