tig.pl: Print line when dieing.

[config/dotfiles.git] / tig.pl

diff --git a/tig.pl b/tig.pl
index f753408bba21d20eb89af891c55b82e19578349f..77b7d9416600f812fd760bbf7f05df208e99effa 100755 (executable)
--- a/tig.pl
+++ b/tig.pl
@@ -50,7 +50,7 @@ while (my $line = <$fh>) {
     }
 
     # Commit line.
-    $line =~ /^([ *|]+) (.+)\x00(.+)\x00(.+)\x00(.+)\x00(.*)$/ or die;
+    $line =~ /^([ *|]+) (.+)\x00(.+)\x00(.+)\x00(.+)\x00(.*)$/ or die $line;
     my $prefix  = $1;
     my $hash    = colored($2, $color_hash);
     my $date    = POSIX::strftime('%Y-%m-%d', localtime($3));