From 4bf926384a26bbdbe7c6bb6476aa6093381667c8 Mon Sep 17 00:00:00 2001
From: Simon Ruderich <simon@ruderich.org>
Date: Mon, 11 Mar 2013 17:18:31 +0100
Subject: [PATCH] tig.pl: Print line when dieing.

---
 tig.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tig.pl b/tig.pl
index f753408..77b7d94 100755
--- 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));
-- 
2.45.2