From 1b2e3c0046ad7100bd0ba9e0d507c539deedb894 Mon Sep 17 00:00:00 2001
From: Daniel Maya <daniel.maya@pandorafms.com>
Date: Wed, 14 Dec 2022 12:24:56 +0100
Subject: [PATCH] #10019 Changed smartmatch

---
 pandora_server/util/pandora_manage.pl | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/pandora_server/util/pandora_manage.pl b/pandora_server/util/pandora_manage.pl
index bd34fb32ce..3de0eb92b0 100755
--- a/pandora_server/util/pandora_manage.pl
+++ b/pandora_server/util/pandora_manage.pl
@@ -1296,7 +1296,6 @@ sub help_screen_line($$$){
 
 sub check_values($) {
 	my ($check) = @_;
-	use experimental 'smartmatch';
 
 	my $arg_cont = 2;
 	my $cont = 0;
@@ -1316,7 +1315,7 @@ sub check_values($) {
 
 		# Check values.
 		if (defined($check->[$cont]->{'values'})) {
-			if (!($args[$arg_cont] ~~ $check->[$cont]->{'values'})) {
+			if (!(is_in_array($check->[$cont]->{'values'}, $args[$arg_cont]))) {
 				print "\nError: value `$args[$arg_cont]` is not valid for $check->[$cont]->{'name'}\n";
 				print "\tAvailable options: \t$check->[$cont]->{'values'}->[0]";
 				if (defined($check->[$cont]->{'text_extra'}->[0])) {