From f654d4f8a5f2d45654b907ef8e48b821bceb31d0 Mon Sep 17 00:00:00 2001
From: Marko Oldenburg <leongaultier@gmail.com>
Date: Wed, 27 Nov 2019 10:28:05 +0100
Subject: [PATCH] fix RegEx for Time format check

---
 73_AutoShuttersControl.pm | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/73_AutoShuttersControl.pm b/73_AutoShuttersControl.pm
index aac9a3c..3af624d 100644
--- a/73_AutoShuttersControl.pm
+++ b/73_AutoShuttersControl.pm
@@ -6007,7 +6007,7 @@ sub getTimeUpEarly {
     }
 
     return (
-          $val =~ /^(?:[01]\d|2[0-3]):(?:[0-5]\d)(:(?:[0-5]\d))?$/
+          $val =~ /^(?:[01]\d|2?[0-3]):(?:[0-5]\d)(:(?:[0-5]\d))?$/
         ? $val
         : '05:00'
     );
@@ -6022,7 +6022,7 @@ sub getTimeUpLate {
     }
 
     return (
-          $val =~ /^(?:[01]\d|2[0-3]):(?:[0-5]\d)(:(?:[0-5]\d))?$/
+          $val =~ /^(?:[01]\d|2?[0-3]):(?:[0-5]\d)(:(?:[0-5]\d))?$/
         ? $val
         : '08:30'
     );
@@ -6037,7 +6037,7 @@ sub getTimeDownEarly {
     }
 
     return (
-          $val =~ /^(?:[01]\d|2[0-3]):(?:[0-5]\d)(:(?:[0-5]\d))?$/
+          $val =~ /^(?:[01]\d|2?[0-3]):(?:[0-5]\d)(:(?:[0-5]\d))?$/
         ? $val
         : '16:00'
     );
@@ -6052,7 +6052,7 @@ sub getTimeDownLate {
     }
 
     return (
-          $val =~ /^(?:[01]\d|2[0-3]):(?:[0-5]\d)(:(?:[0-5]\d))?$/
+          $val =~ /^(?:[01]\d|2?[0-3]):(?:[0-5]\d)(:(?:[0-5]\d))?$/
         ? $val
         : '22:00'
     );
@@ -6068,7 +6068,7 @@ sub getTimeUpWeHoliday {
     }
 
     return (
-          $val =~ /^(?:[01]\d|2[0-3]):(?:[0-5]\d)(:(?:[0-5]\d))?$/
+          $val =~ /^(?:[01]\d|2?[0-3]):(?:[0-5]\d)(:(?:[0-5]\d))?$/
         ? $val
         : '08:00'
     );
@@ -7780,7 +7780,7 @@ sub getblockAscDrivesAfterManual {
   ],
   "release_status": "under develop",
   "license": "GPL_2",
-  "version": "v0.8.3",
+  "version": "v0.8.4",
   "author": [
     "Marko Oldenburg <leongaultier@gmail.com>"
   ],