summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorFlorian Pritz <bluewind@xinu.at>2017-11-21 19:32:14 +0100
committerFlorian Pritz <bluewind@xinu.at>2017-11-21 20:06:16 +0100
commit0ed455830d1d55e39b895388539200480c928776 (patch)
tree11d8d89001bcf449df15cefcbd9ac3b856577413
parent8bed4df94caf9bfa51857bb45b32fd287c6680e1 (diff)
downloadApp-BorgRestore-0ed455830d1d55e39b895388539200480c928776.tar.gz
App-BorgRestore-0ed455830d1d55e39b895388539200480c928776.tar.xz
borg_list_time: Fix parsing for borg >=1.1
Output now contains additional data after the date. Signed-off-by: Florian Pritz <bluewind@xinu.at>
-rw-r--r--lib/App/BorgRestore/Borg.pm3
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/App/BorgRestore/Borg.pm b/lib/App/BorgRestore/Borg.pm
index 89a0b3a..31511de 100644
--- a/lib/App/BorgRestore/Borg.pm
+++ b/lib/App/BorgRestore/Borg.pm
@@ -53,7 +53,8 @@ method borg_list_time() {
run [qw(borg list), $self->{borg_repo}], '>', \my $output or die $log->error("borg list returned $?")."\n";
for (split/^/, $output) {
- if (m/^([^\s]+)\s+(.+)$/) {
+ # example timestamp: "Wed, 2016-01-27 10:31:59" = 24 chars
+ if (m/^([^\s]+)\s+(.{24})/) {
my $time = App::BorgRestore::Helper::parse_borg_time($2);
if ($time) {
push @archives, {