From 282668927d04ab377db91c4f840b8576620b986b Mon Sep 17 00:00:00 2001
From: Axel Burri <axel@tty0.ch>
Date: Tue, 13 Oct 2015 01:39:58 +0200
Subject: [PATCH] btrbk: cosmetics on table format: no trailing whitespace

---
 btrbk | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/btrbk b/btrbk
index 75c95ae..166bee8 100755
--- a/btrbk
+++ b/btrbk
@@ -1841,14 +1841,21 @@ sub print_formatted(@)
     }
 
     # print keys (headings)
-    print join("  ", map { $_ . (' ' x ($maxlen{$_} - length($_))) } @$keys) . "\n";
+    my $fill = '';
+    foreach (@$keys) {
+      print $fill . $_;
+      $fill = ' ' x (2 + $maxlen{$_} - length($_));
+    }
+    print "\n";
     print join("  ", map { '-' x ($maxlen{$_}) } @$keys) . "\n";
 
     # print values
     foreach my $row (@$data) {
+      my $fill = '';
       foreach (@$keys) {
         my $val = $row->{$_};
-        print $val . (' ' x (2 + $maxlen{$_} - length($val)));
+        print $fill . $val;
+        $fill = ' ' x (2 + $maxlen{$_} - length($val));
       }
       print "\n";
     }