add tests for rebasing root

diff --git a/contrib/blameview/blameview.perl b/contrib/blameview/blameview.perl
index a9a509febbe7ec311bf363e734a380d8cfca73ff..1dec00137b2dd8a888a962edd62f01aad89e4186 100755 (executable)
--- a/contrib/blameview/blameview.perl
+++ b/contrib/blameview/blameview.perl
@@ -41,7 +41,7 @@
 $fileview->signal_connect (row_activated => sub {
                my ($sl, $path, $column) = @_;
                my $row_ref = $sl->get_row_data_from_path ($path);
-               system("blameview @$row_ref[0] $fn &");
+               system("blameview @$row_ref[0]~1 $fn &");
                });
 
 my $commitwindow = Gtk2::ScrolledWindow->new();