|
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 ); |