change scalar

This commit is contained in:
Marko Oldenburg 2019-04-05 08:07:26 +02:00
parent a38e108c2f
commit de8f7dc242

View File

@ -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($) {