diff options
| author | Florian Pritz <bluewind@xinu.at> | 2023-09-03 13:50:27 +0200 |
|---|---|---|
| committer | Florian Pritz <bluewind@xinu.at> | 2023-09-03 13:50:27 +0200 |
| commit | 7d6d3eab0db08f6905c90061cacb2b26c42949f2 (patch) | |
| tree | 7c5eb29ea1ac3dd139b64a41e3e5f87d8d5505ba | |
| parent | 972c3e21bd645376dc4544d6339f2c125e43d668 (diff) | |
| download | App-BorgRestore-7d6d3eab0db08f6905c90061cacb2b26c42949f2.tar.gz App-BorgRestore-7d6d3eab0db08f6905c90061cacb2b26c42949f2.tar.xz | |
Fix deprecation warning with borg 1.2.x
Signed-off-by: Florian Pritz <bluewind@xinu.at>
| -rw-r--r-- | Changes | 1 | ||||
| -rw-r--r-- | lib/App/BorgRestore/Borg.pm | 9 |
2 files changed, 9 insertions, 1 deletions
@@ -1,6 +1,7 @@ Revision history for Perl extension App-BorgRestore {{$NEXT}} + - Fix deprecation warning with borg 1.2.x 3.4.4 2020-10-14T12:37:04Z - Require DBD::SQLite 1.60 or newer to fix issues with schema migration 2 diff --git a/lib/App/BorgRestore/Borg.pm b/lib/App/BorgRestore/Borg.pm index 04ad89c..9884b21 100644 --- a/lib/App/BorgRestore/Borg.pm +++ b/lib/App/BorgRestore/Borg.pm @@ -55,7 +55,14 @@ method borg_list() { my @archives; my $backup_prefix = $self->{backup_prefix}; - if (Version::Compare::version_compare($self->{borg_version}, "1.1") >= 0) { + if (Version::Compare::version_compare($self->{borg_version}, "1.2") >= 0) { + $log->debug("Getting archive list via json"); + run [qw(borg list --glob-archives), "$backup_prefix*", qw(--json), $self->{borg_repo}], '>', \my $output or die $log->error("borg list returned $?")."\n"; + my $json = decode_json($output); + for my $archive (@{$json->{archives}}) { + push @archives, $archive->{archive}; + } + } elsif (Version::Compare::version_compare($self->{borg_version}, "1.1") >= 0) { $log->debug("Getting archive list via json"); run [qw(borg list --prefix), $backup_prefix, qw(--json), $self->{borg_repo}], '>', \my $output or die $log->error("borg list returned $?")."\n"; my $json = decode_json($output); |