From 3f72ede85bd05ba335bb0bcc7605724c02a66561 Mon Sep 17 00:00:00 2001
From: Heuzef <contact@heuzef.com>
Date: Fri, 11 Oct 2019 10:30:24 +0200
Subject: [PATCH] Move bpc

---
 Check.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Check.pm b/Check.pm
index b0f5263..f7be2c0 100644
--- a/Check.pm
+++ b/Check.pm
@@ -36,9 +36,10 @@ sub action
 
     # Start loop
     foreach my $host ( GetUserHosts(1) ) {
-        my($bpc,$incrCnt, $incrAge, $reasonHilite,
+        my($incrCnt, $incrAge, $reasonHilite,
            $lastAge, $lastAgeColor, $tempState, $tempReason, $lastXferErrors, $lastXferErrorsColor);
         my($shortErr);
+        my $bpc = BackupPC::Lib->new();
         my @Backups = $bpc->BackupInfoRead($host);
         my $fullCnt = $incrCnt = 0;
         my $fullAge = $incrAge = $lastAge = -1;
@@ -134,7 +135,6 @@ sub action
     }
 
     # Check Size Consistency
-    my $bpc = BackupPC::Lib->new();
     my $mainConf = $bpc->ConfigDataRead();
     my $check = {};