Move bpc

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 = {};