From c274a9a1adc6c2dbc20bebc19b6c58217ab9654b Mon Sep 17 00:00:00 2001
From: rudolfkoenig <rudolfkoenig@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Sat, 30 Nov 2024 18:54:13 +0000
Subject: [PATCH] fhem.pl: use any in the smartmatch functions (Forum #137776)

git-svn-id: https://svn.fhem.de/fhem/trunk@29381 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/fhem.pl | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/fhem/fhem.pl b/fhem/fhem.pl
index 31055cefa..aace20b0f 100755
--- a/fhem/fhem.pl
+++ b/fhem/fhem.pl
@@ -31,6 +31,7 @@ use Time::HiRes qw(gettimeofday time);
 use Scalar::Util qw(looks_like_number);
 use POSIX;
 use File::Copy qw(copy);
+use List::Util qw(any);
 use Encode;
 
 ##################################################
@@ -6492,12 +6493,12 @@ CheckRegexp($$)
 # use contains_<type>($scalar, @array) instead of $scalar ~~ @array
 sub contains_numeric($@) {
   my ($scalar, @array) = @_;
-  return (grep { $_ == $scalar } @array > 0);
+  return any { $_ == $scalar } @array;
 }
 
 sub contains_string($@) {
   my ($scalar, @array) = @_;
-  return (grep { $_ eq $scalar } @array > 0);
+  return any { $_ eq $scalar } @array;
 }
 
 1;