FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-13 05:06:35 +00:00
Code Issues Releases Wiki Activity

$_;; bug workaround

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@896 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2011-04-25 08:11:52 +00:00
parent 00cd0067e7
commit 8e565ba360
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
fhem/fhem.pl
View File

@ -167,7 +167,7 @@ my $nextat; # Time when next timer will be triggered.
my $intAtCnt=0;
my %duplicate; # Pool of received msg for multi-fhz/cul setups
my $duplidx=0; # helper for the above pool
my $cvsid = '$Id: fhem.pl,v 1.136 2011-03-10 17:42:01 rudolfkoenig Exp $';
my $cvsid = '$Id: fhem.pl,v 1.137 2011-04-25 08:11:52 rudolfkoenig Exp $';
my $namedef =
"where <name> is either:\n" .
"- a single device name\n" .
@ -632,9 +632,9 @@ AnalyzeCommandChain($$)
my @ret;
$cmd =~ s/#.*$//s;
$cmd =~ s/;;/____/g;
$cmd =~ s/;;/SeMiCoLoN/g;
foreach my $subcmd (split(";", $cmd)) {
$subcmd =~ s/____/;/g;
$subcmd =~ s/SeMiCoLoN/;/g;
my $lret = AnalyzeCommand($c, $subcmd);
push(@ret, $lret) if(defined($lret));
}
@ -662,7 +662,6 @@ AnalyzePerlCommand($$)
}
$month++;
$year+=1900;
my $ret = eval $cmd;
$ret = $@ if($@);
return $ret;