From 11de24b0256bc39a143bc9342cb4e7dd4a20ec58 Mon Sep 17 00:00:00 2001
From: dietmar63 <dietmar63@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Wed, 20 Feb 2013 07:23:38 +0000
Subject: [PATCH] 98_Heating_Control.pm - changing a Statement to get it work
 on older versions of Perl(Synlogy 5.8)

git-svn-id: https://fhem.svn.sourceforge.net/svnroot/fhem/trunk/fhem@2776 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 FHEM/98_Heating_Control.pm | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/FHEM/98_Heating_Control.pm b/FHEM/98_Heating_Control.pm
index 28bdfdf35..057647080 100644
--- a/FHEM/98_Heating_Control.pm
+++ b/FHEM/98_Heating_Control.pm
@@ -95,13 +95,13 @@ Heating_Control_Define($$)
   }
 
   for(my $i=0; $i<@a; $i++) {
-    #prüfen auf Angabe eines Schaltpunktes
+    #pruefen auf Angabe eines Schaltpunktes
     my @t = split(/\|/, $a[$i]);
     my $anzahl = @t;
-    if ( $anzahl ~~ [2,3]) {
+    if ( $anzahl >= 2 && $anzahl <= 3) {
       push(@switchingtimes, $a[$i]);
     } else { 
-      #der Rest ist das auzuführende Kommando/condition
+      #der Rest ist das auzufuehrende Kommando/condition
       $conditionOrCommand = trim(join(" ", @a[$i..@a-1]));
       last; 
     }
@@ -145,13 +145,13 @@ Heating_Control_Define($$)
        $dayNumber{$day} = $idx; $idx++;
     }
 
-    #Aufzählung 1234 ...
+    #Aufzaehlung 1234 ...
     if (      $daylist =~  m/^(\d){0,7}$/g) {
 
         @days = split("", $daylist);
         @hdays{@days}=1;
 
-    # Aufzählung Sa,So,... | Mo-Di,Do,Fr-Mo
+    # Aufzaehlung Sa,So,... | Mo-Di,Do,Fr-Mo
     } elsif ($daylist =~  m/^($daysRegExp(,|-|$)){0,7}$/g   ) {
 
       my $oldDay, my $oldDel;
@@ -193,7 +193,7 @@ Heating_Control_Define($$)
     }
   }
 
-  #desired-temp des Zieldevices auswählen
+  #desired-temp des Zieldevices auswaehlen
   if($defs{$device}{TYPE} eq "MAX") {
     $hash->{helper}{DESIRED_TEMP_READING} = "desiredTemperature"
   } else {
@@ -258,7 +258,7 @@ Heating_Control_Update($)
 
   for (my $d=0; $d<@days; $d++) {
     Log $loglevel, "d------------>$d--->nextSwitch:$nextSwitch";
-    #über jeden Tag
+    #ueber jeden Tag
     last if ($nextSwitch > 0);
     Log $loglevel, "days[$d]------------>$days[$d]";
     foreach my $st (sort (keys %{ $hash->{helper}{SWITCHINGTIME}{$days[$d]} })) {