From 039f0507ddb63da940ab52a70082d0f08fcc9e84 Mon Sep 17 00:00:00 2001
From: choenig <>
Date: Sun, 13 Dec 2020 13:11:08 +0000
Subject: [PATCH] 48_MieleAtHome: fix 'set' actions

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

diff --git a/fhem/FHEM/48_MieleAtHome.pm b/fhem/FHEM/48_MieleAtHome.pm
index 215563bee..6925160c8 100644
--- a/fhem/FHEM/48_MieleAtHome.pm
+++ b/fhem/FHEM/48_MieleAtHome.pm
@@ -35,7 +35,7 @@ use Encode qw(encode_utf8);
 use List::Util qw[min max];
 use JSON;
 
-my $version = "1.0.0";
+my $version = "1.0.1";
 
 my $MAH_hasMimeBase64 = 1;
 
@@ -1311,7 +1311,7 @@ sub MAH_setProcessAction($$)
 	my ($hash, $processActionName) = @_;
 	my $name = $hash->{NAME};
 
-	my $processActionId = grep{ PROCESS_ACTIONS->{$_} eq $processActionName } keys %{PROCESS_ACTIONS()};
+	my ($processActionId) = grep{ PROCESS_ACTIONS->{$_} eq $processActionName } keys %{PROCESS_ACTIONS()};
 	if (!defined $processActionId) {
 		return "invalid processAction: '${processActionName}'";
 	}
@@ -1332,7 +1332,7 @@ sub MAH_setLight($$)
 	my ($hash, $lightActionName) = @_;
 	my $name = $hash->{NAME};
 
-	my $lightActionId = grep{ LIGHT_ACTIONS->{$_} eq $lightActionName } keys %{LIGHT_ACTIONS()};
+	my ($lightActionId) = grep{ LIGHT_ACTIONS->{$_} eq $lightActionName } keys %{LIGHT_ACTIONS()};
 	if (!defined $lightActionId) {
 		return "invalid light action: '${lightActionName}'";
 	}
@@ -1353,7 +1353,7 @@ sub MAH_setVentilationStep($$)
 	my ($hash, $ventilationStepName) = @_;
 	my $name = $hash->{NAME};
 
-	my $ventilationStepId = grep{ VENTILATION_STEPS->{$_} eq $ventilationStepName } keys %{VENTILATION_STEPS()};
+	my ($ventilationStepId) = grep{ VENTILATION_STEPS->{$_} eq $ventilationStepName } keys %{VENTILATION_STEPS()};
 	if (!defined $ventilationStepId) {
 		return "invalid ventilation step: '${ventilationStepName}'";
 	}