mirror of
git://git.proxmox.com/git/pve-storage.git
synced 2025-01-24 02:04:13 +03:00
pbs: wrap getting list volumes for pruning for error context
Signed-off-by: Thomas Lamprecht <t.lamprecht@proxmox.com>
This commit is contained in:
parent
f8b890f1c0
commit
e6d7728171
@ -403,7 +403,8 @@ sub prune_backups {
|
||||
|
||||
$logfunc //= sub { print "$_[1]\n" };
|
||||
|
||||
my $backups = $class->list_volumes($storeid, $scfg, $vmid, ['backup']);
|
||||
my $backups = eval { $class->list_volumes($storeid, $scfg, $vmid, ['backup']) };
|
||||
die "failed to get list of all backups to prune - $@" if $@;
|
||||
|
||||
$type = 'vm' if defined($type) && $type eq 'qemu';
|
||||
$type = 'ct' if defined($type) && $type eq 'lxc';
|
||||
@ -411,7 +412,6 @@ sub prune_backups {
|
||||
my $backup_groups = {};
|
||||
foreach my $backup (@{$backups}) {
|
||||
(my $backup_type = $backup->{format}) =~ s/^pbs-//;
|
||||
|
||||
next if defined($type) && $backup_type ne $type;
|
||||
|
||||
my $backup_group = "$backup_type/$backup->{vmid}";
|
||||
|
Loading…
x
Reference in New Issue
Block a user