summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lib/App/BorgRestore/Borg.pm17
1 files changed, 17 insertions, 0 deletions
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;