From a811fff9914d89361fa80edbf895d2d9907d6282 Mon Sep 17 00:00:00 2001
From: Alexander Sulfrian <alex@spline.inf.fu-berlin.de>
Date: Thu, 26 Nov 2015 20:30:11 +0100
Subject: hosts-state: Fix perl warning

Perl 5.20 introduces new a warning:
> push on reference is experimental
---
 hosts-state | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/hosts-state b/hosts-state
index 1ef151e..2bb4aee 100755
--- a/hosts-state
+++ b/hosts-state
@@ -42,18 +42,18 @@ while(<$reports>) {
     if ($dt < $stale) {
         $msg = "CRITICAL $host is stale";
         $status = 2;
-        push($summary->{stale}, $short_host);
+        push(@{$summary->{stale}}, $short_host);
     }
     else {
         if ($bad > 0) {
             $msg = "CRITICAL $bad bad entries";
             $status = 2;
-            push($summary->{bad}, $short_host);
+            push(@{$summary->{bad}}, $short_host);
         }
         else {
             $msg = "OK Total managed entries: $total (extra: $extra)";
             $status = 0;
-            push($summary->{clean}, $short_host);
+            push(@{$summary->{clean}}, $short_host);
         }
     }
 
-- 
cgit v1.2.3-1-g7c22