From 039adb66977dc7b3b9beace1680c602bf7ad67bb Mon Sep 17 00:00:00 2001
From: Angelo Naselli <anaselli@linux.it>
Date: Thu, 26 Mar 2015 09:34:02 +0100
Subject: Check also for an empty array to avoid type constraint failure in
 ntp_program

---
 lib/ManaTools/Shared/TimeZone.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'lib')

diff --git a/lib/ManaTools/Shared/TimeZone.pm b/lib/ManaTools/Shared/TimeZone.pm
index 544759a..9aa7ef2 100644
--- a/lib/ManaTools/Shared/TimeZone.pm
+++ b/lib/ManaTools/Shared/TimeZone.pm
@@ -152,10 +152,12 @@ has 'ntp_program' => (
 sub _ntp_program_init {
     my $self = shift;
 
+    $DB::single = 1;
+
     # looks for a running service from the configured ones,
     # if none is running chooses the first of the list
     my $list = $self->ntpServiceList();
-    return "" if !$list;
+    return "" if !$list || scalar @{$list} == 0;
 
     my $ntpd = "";
     my $isRunning = 0;
-- 
cgit v1.2.1