mhop/fhem
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

$_;; bug workaround

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

7
fhem.pl
View File

@@ -167,7 +167,7 @@ my $nextat; # Time when next timer will be triggered.
my $intAtCnt=0; my $intAtCnt=0;
my %duplicate; # Pool of received msg for multi-fhz/cul setups my %duplicate; # Pool of received msg for multi-fhz/cul setups
my $duplidx=0; # helper for the above pool 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 = my $namedef =
"where <name> is either:\n" . "where <name> is either:\n" .
"- a single device name\n" . "- a single device name\n" .
@@ -632,9 +632,9 @@ AnalyzeCommandChain($$)
my @ret; my @ret;
$cmd =~ s/#.*$//s; $cmd =~ s/#.*$//s;
$cmd =~ s/;;/____/g; $cmd =~ s/;;/SeMiCoLoN/g;
foreach my $subcmd (split(";", $cmd)) { foreach my $subcmd (split(";", $cmd)) {
$subcmd =~ s/____/;/g; $subcmd =~ s/SeMiCoLoN/;/g;
my $lret = AnalyzeCommand($c, $subcmd); my $lret = AnalyzeCommand($c, $subcmd);
push(@ret, $lret) if(defined($lret)); push(@ret, $lret) if(defined($lret));
} }
@@ -662,7 +662,6 @@ AnalyzePerlCommand($$)
} }
$month++; $month++;
$year+=1900; $year+=1900;
my $ret = eval $cmd; my $ret = eval $cmd;
$ret = $@ if($@); $ret = $@ if($@);
return $ret; return $ret;