app-backup/backuppc/files/backuppc-3.3.1-perl522.patch


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

--- a/lib/BackupPC/CGI/Browse.pm	2016-11-22 20:52:03.622509160 +0100
+++ b/lib/BackupPC/CGI/Browse.pm	2016-11-22 20:50:35.871018400 +0100
@@ -62,13 +62,13 @@ fix bug https://bugzilla.redhat.com/attachment.cgi?id=1104083
     #
     my @Backups = $bpc->BackupInfoRead($host);
 
     #
     # default to the newest backup
     #
-    if ( !defined($In{num}) && defined(@Backups) && @Backups > 0 ) {
+    if ( !defined($In{num}) && @Backups > 0 ) {
         $i = @Backups - 1;
         $num = $Backups[$i]{num};
     }
 
     for ( $i = 0 ; $i < @Backups ; $i++ ) {
         last if ( $Backups[$i]{num} == $num );