From d80bd8863332a727aaad869090a9f252fa53ab8c Mon Sep 17 00:00:00 2001
From: dietmar63 <>
Date: Mon, 6 Jul 2015 17:32:56 +0000
Subject: [PATCH] 98_WOL.: Perl Warning "Smartmatch is experimental" eliminated

git-svn-id: https://svn.fhem.de/fhem/trunk@8905 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/98_WOL.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/fhem/FHEM/98_WOL.pm b/fhem/FHEM/98_WOL.pm
index 529045d36..f694c736f 100644
--- a/fhem/FHEM/98_WOL.pm
+++ b/fhem/FHEM/98_WOL.pm
@@ -230,11 +230,11 @@ sub WOL_wake($){
   
   Log3 $hash, 4, "[$name] keeping $name with MAC $mac IP $host busy";
 
-  if ($hash->{MODE} ~~ ["BOTH", "EW" ] ) {
+  if ($hash->{MODE} eq "BOTH" || $hash->{MODE} eq "EW"  ) {
      WOL_by_ew ($hash, $mac);
      readingsBulkUpdate   ($hash, "packet_via_EW", $mac);
   }
-  if ($hash->{MODE} ~~ ["BOTH", "UDP"] ) {
+  if ($hash->{MODE} eq "BOTH" || $hash->{MODE} eq "UDP"  ) {
      WOL_by_udp ($hash, $mac, $host);
      readingsBulkUpdate   ($hash, "packet_via_UDP", $host);
   }