summaryrefslogtreecommitdiffstats
path: root/lib
diff options
context:
space:
mode:
authorFlorian Pritz <bluewind@xinu.at>2017-11-21 20:03:20 +0100
committerFlorian Pritz <bluewind@xinu.at>2017-11-21 20:06:22 +0100
commite10e57b67c00b31b595fb92e83da8bebd8943550 (patch)
tree1810bb4bed2157a1e2497e1478cf76dcf1bf6539 /lib
parent654740fd9cecce9921d274246791eb0cbc723af0 (diff)
downloadApp-BorgRestore-e10e57b67c00b31b595fb92e83da8bebd8943550.tar.gz
App-BorgRestore-e10e57b67c00b31b595fb92e83da8bebd8943550.tar.xz
Borg::list_archive: Use --format to please borg 1.1
Signed-off-by: Florian Pritz <bluewind@xinu.at>
Diffstat (limited to 'lib')
-rw-r--r--lib/App/BorgRestore/Borg.pm9
1 files changed, 8 insertions, 1 deletions
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->($_);
}