Lines 62-74
fix bug https://bugzilla.redhat.com/attachment.cgi?id=1104083
Link Here
|
62 |
# |
62 |
# |
63 |
my @Backups = $bpc->BackupInfoRead($host); |
63 |
my @Backups = $bpc->BackupInfoRead($host); |
64 |
|
64 |
|
65 |
# |
65 |
# |
66 |
# default to the newest backup |
66 |
# default to the newest backup |
67 |
# |
67 |
# |
68 |
if ( !defined($In{num}) && defined(@Backups) && @Backups > 0 ) { |
68 |
if ( !defined($In{num}) && @Backups > 0 ) { |
69 |
$i = @Backups - 1; |
69 |
$i = @Backups - 1; |
70 |
$num = $Backups[$i]{num}; |
70 |
$num = $Backups[$i]{num}; |
71 |
} |
71 |
} |
72 |
|
72 |
|
73 |
for ( $i = 0 ; $i < @Backups ; $i++ ) { |
73 |
for ( $i = 0 ; $i < @Backups ; $i++ ) { |
74 |
last if ( $Backups[$i]{num} == $num ); |
74 |
last if ( $Backups[$i]{num} == $num ); |