From e10e57b67c00b31b595fb92e83da8bebd8943550 Mon Sep 17 00:00:00 2001 From: Florian Pritz Date: Tue, 21 Nov 2017 20:03:20 +0100 Subject: Borg::list_archive: Use --format to please borg 1.1 Signed-off-by: Florian Pritz --- lib/App/BorgRestore/Borg.pm | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/lib/App/BorgRestore/Borg.pm b/lib/App/BorgRestore/Borg.pm index bd9ac3c..3e531ba 100644 --- a/lib/App/BorgRestore/Borg.pm +++ b/lib/App/BorgRestore/Borg.pm @@ -107,7 +107,14 @@ method restore($components_to_strip, $archive_name, $path) { method list_archive($archive, $cb) { $log->debugf("Fetching file list for archive %s", $archive); - open (my $fh, '-|', 'borg', qw/list --list-format/, '{isomtime} {path}{NEWLINE}', $self->{borg_repo}."::".$archive); + my $fh; + + if (Version::Compare::version_compare($self->{borg_version}, "1.1") >= 0) { + open ($fh, '-|', 'borg', qw/list --format/, '{isomtime} {path}{NEWLINE}', $self->{borg_repo}."::".$archive); + } else { + open ($fh, '-|', 'borg', qw/list --list-format/, '{isomtime} {path}{NEWLINE}', $self->{borg_repo}."::".$archive); + } + while (<$fh>) { $cb->($_); } -- cgit v1.2.3-24-g4f1b