From de8f7dc2422f159384e3c33286f0c064b63117d5 Mon Sep 17 00:00:00 2001 From: Marko Oldenburg Date: Fri, 5 Apr 2019 08:07:26 +0200 Subject: [PATCH] change scalar --- 73_AutoShuttersControl.pm | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/73_AutoShuttersControl.pm b/73_AutoShuttersControl.pm index 78f5de1..3a62f40 100644 --- a/73_AutoShuttersControl.pm +++ b/73_AutoShuttersControl.pm @@ -42,7 +42,7 @@ use strict; use warnings; use FHEM::Meta; -my $version = '0.4.0.11beta57'; +my $version = '0.4.0.11beta58'; sub AutoShuttersControl_Initialize($) { my ($hash) = @_; @@ -2732,7 +2732,7 @@ sub CheckIfShuttersWindowRecOpen($) { } sub makeReadingName($) { - my ($name) = @_; + my ($rname) = @_; my %charHash = ( "ä" => "ae", "Ä" => "Ae", @@ -2744,10 +2744,10 @@ sub makeReadingName($) { ); my $charHashkeys = join( "|", keys(%charHash) ); - return $name if ( $name =~ m/^\./ ); - $name =~ s/($charHashkeys)/$charHash{$1}/gi; - $name =~ s/[^a-z0-9._\-\/]/_/gi; - return $name; + return $rname if ( $rname =~ m/^\./ ); + $rname =~ s/($charHashkeys)/$charHash{$1}/gi; + $rname =~ s/[^a-z0-9._\-\/]/_/gi; + return $rname; } sub TimeMin2Sec($) {