From 20194697d74c712559ee259ca7416402f43bc1d3 Mon Sep 17 00:00:00 2001
From: rudolfkoenig <>
Date: Tue, 30 Jan 2018 20:21:02 +0000
Subject: [PATCH] fhem.pl: CommandAttr fix, 3rd try (Forum #83541)

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

diff --git a/fhem/fhem.pl b/fhem/fhem.pl
index c986ea254..ae81ce9da 100755
--- a/fhem/fhem.pl
+++ b/fhem/fhem.pl
@@ -2708,7 +2708,7 @@ CommandAttr($$)
       }
       if(!$found) {
         push @rets, "$sdev: unknown attribute $attrName. ".
-                        "Type 'attr $a[0] ?' for a detailed list.";
+                        "Type 'attr $sdev ?' for a detailed list.";
         next;
       }
     }
@@ -2762,7 +2762,6 @@ CommandAttr($$)
       $hash->{'.userReadings'}= \@userReadings;
     } 
 
-    $a[0] = $sdev;
     my $oVal = ($attr{$sdev} ? $attr{$sdev}{$attrName} : "");
 
     if($attrName eq "eventMap") {
@@ -2791,12 +2790,12 @@ CommandAttr($$)
 
       if($rp && $lval =~ m/$rp/) {
         my $err = perlSyntaxCheck($attrVal, %{$ra{$attrName}{pv}});
-        return "attr $sdev $a[1]: $err" if($err);
+        return "attr $sdev $attrName: $err" if($err);
 
       } else {
         for my $v (split($ra{$attrName}{s}, $lval)) {
           $v =~ s/$ra{$attrName}{r}// if($ra{$attrName}{r});
-          my $err = "Argument $v for attr $sdev $a[1] is not a valid regexp";
+          my $err ="Argument $v for attr $sdev $attrName is not a valid regexp";
           return "$err: use .* instead of *" if($v =~ /^\*/); # no err in eval!?
           eval { "Hallo" =~ m/^$v$/ };
           return "$err: $@" if($@);