From ece1cc1b7a1b1787f561c7a7d47a76de9b5405c3 Mon Sep 17 00:00:00 2001
From: rudolfkoenig <rudolfkoenig@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Mon, 25 Apr 2011 08:11:52 +0000
Subject: [PATCH] $_;; bug workaround

git-svn-id: https://fhem.svn.sourceforge.net/svnroot/fhem/trunk/fhem@896 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem.pl | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/fhem.pl b/fhem.pl
index 87e5a56bb..a53e78367 100755
--- a/fhem.pl
+++ b/fhem.pl
@@ -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;