FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-16 10:46:03 +00:00
Code Issues Releases Wiki Activity

98_WOL.: Perl Warning "Smartmatch is experimental" eliminated

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@8905 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
dietmar63 2015-07-06 17:32:56 +00:00
parent 05d49726f0
commit d80bd88633
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
fhem/FHEM/98_WOL.pm
View File

@ -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);
}