tig.pl: Fix graphs with "\".

[config/dotfiles.git] / tig.pl

diff --git a/tig.pl b/tig.pl
index 0d80e1fcb56b55a0d7dc1141624458e746e11539..d7272a3183981ad8040d2c963f9f6fe1a4e03bf5 100755 (executable)
--- a/tig.pl
+++ b/tig.pl
@@ -40,7 +40,9 @@ my $format = '%x00'         # separator from --graph
            . '%an' . '%x00' # author name
            . '%s'  . '%x00' # subject
            . '%d';          # ref names
-my @cmd = ('git', 'log', '--all', '--graph', "--format=$format");
+my @cmd = ('git', 'log', '--graph', "--format=$format",
+           # use either given arguments or --all to list all commits
+           (scalar @ARGV) ? @ARGV : '--all');
 open my $fh, '-|', @cmd or die $!;
 
 my $pager = $ENV{PAGER};
@@ -66,7 +68,7 @@ while (my $line = <$fh>) {
     }
 
     # Commit line.
-    $line =~ /^([ *|.-]+)\x00(.+)\x00(.+)\x00(.+)\x00(.+)\x00(.*)$/
+    $line =~ /^([ *|.\\-]+)\x00(.+)\x00(.+)\x00(.+)\x00(.*)\x00(.*)$/
         or die $line;
     my $prefix  = $1;
     my $hash    = colored($2, $color_hash);