From 11b86563f4b8a9eeda0940635f05f169bfe150c6 Mon Sep 17 00:00:00 2001
From: Simon Ruderich <simon@ruderich.org>
Date: Sat, 22 Mar 2014 22:46:25 +0100
Subject: [PATCH] bin/tig.pl: remove unnecessary variable

---
 bin/tig.pl | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/bin/tig.pl b/bin/tig.pl
index bde17f3..881583d 100755
--- a/bin/tig.pl
+++ b/bin/tig.pl
@@ -68,16 +68,15 @@ if (-t STDOUT and defined $pager) {
     open STDOUT, '|-', $pager or die $!;
 }
 
-while (my $line = <$fh>) {
+while (<$fh>) {
     # History graph line.
-    if ($line =~ m{^([|/\\_ ]+)$}) {
-        print colored($line, $color_graph);
+    if (m{^([|/\\_ ]+)$}) {
+        print colored($_, $color_graph);
         next;
     }
 
     # Commit line.
-    $line =~ /^([ *|.\\-]+)\x00(.+)\x00(.+)\x00(.+)\x00(.*)\x00(.*)$/
-        or die $line;
+    /^([ *|.\\-]+)\x00(.+)\x00(.+)\x00(.+)\x00(.*)\x00(.*)$/ or die $_;
     my $prefix  = $1;
     my $hash    = colored($2, $color_hash);
     my $date    = POSIX::strftime('%Y-%m-%d', localtime($3));
-- 
2.45.2