11_OWDevice: replaced deprecated smartmatch

git-svn-id: https://svn.fhem.de/fhem/trunk@30415 2b470e98-0d58-463d-a4d8-8e2adae1ed80

fhem/CHANGED

@@ -1,5 +1,6 @@
 # Add changes at the top of the list. Keep it in ASCII, and 80-char wide.
 # Do not insert empty lines here, update check depends on it
+ - change: 11_OWDevice: replaced deprecated smartmatch
  - feature: 76_SolarForecast: Version 1.59.5
  - bugfix: 73_NUKIBridge: Refactor command handler return logic for clarity
  - bugfix: 59_Weather: This commit addresses several issues with conditionals

fhem/FHEM/11_OWDevice.pm

@@ -27,7 +27,6 @@ package main;
 
 use strict;
 use warnings;
-no if $] >= 5.017011, warnings => 'experimental::smartmatch';
 
 use vars qw(%owdevice);
 
@@ -598,7 +597,7 @@ OWDevice_Get($@)
         return "get $name needs one argument" if(int(@a) != 2);
         my $cmdname= $a[1];
         my @getters= @{$hash->{fhem}{getters}};
-        if($cmdname ~~ @getters) {
+        if(main::contains_string($cmdname, @getters)) {
           my $value= OWDevice_ReadValue($hash, $cmdname);
           readingsSingleUpdate($hash,$cmdname,$value,1);
           return $value;
@@ -617,7 +616,7 @@ OWDevice_Set($@)
         my $cmdname= $a[1];
         my $value= $a[2];
         my @setters= @{$hash->{fhem}{setters}};
-        if($cmdname ~~ @setters) {
+        if(main::contains_string($cmdname, @setters)) {
           # LCD Display need more than two arguments, to display text
           # added by m.fischer
           if($cmdname =~ /(line16.0|line16.1|line16.2|line16.3|screen16)/ ||