From c41173c06f59972e8cd87de0c0dc3b20e996164f Mon Sep 17 00:00:00 2001
From: mrkubax10 <mrkubax10@onet.pl>
Date: Mon, 18 Sep 2023 18:00:52 +0200
Subject: [PATCH] Suppress given and when is experimental warnings

---
 frontend.pm        | 1 +
 frontend_routes.pm | 1 +
 logger.pm          | 1 +
 3 files changed, 3 insertions(+)

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];