From c97d2a9e42fcb74b05b1473c24f849e5e2e995d8 Mon Sep 17 00:00:00 2001 From: Florian Pritz Date: Tue, 21 Nov 2017 19:52:03 +0100 Subject: Borg: Extract version information for future use Signed-off-by: Florian Pritz --- lib/App/BorgRestore/Borg.pm | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) diff --git a/lib/App/BorgRestore/Borg.pm b/lib/App/BorgRestore/Borg.pm index 31511de..9807700 100644 --- a/lib/App/BorgRestore/Borg.pm +++ b/lib/App/BorgRestore/Borg.pm @@ -28,9 +28,26 @@ method new($class: $borg_repo) { $self->{borg_repo} = $borg_repo; + $self->{borg_version} = $self->borg_version(); + return $self; } +=head3 borg_version + +Return the version of borg. + +=cut + +method borg_version() { + run [qw(borg --version)], ">", \my $output or die $log->error("Failed to determined borg version")."\n"; + if ($output =~ m/^.* ([0-9.a-z]+)$/) { + return $1; + } + die $log->error("Unable to extract borg version from borg --version output")."\n"; +} + + method borg_list() { my @archives; -- cgit v1.2.3-24-g4f1b