bin/tig.pl: remove unnecessary variable

diff --git a/bin/tig.pl b/bin/tig.pl
index bde17f39231094eadb7859606c50f339af4b602c..881583d160f6c2fd34c28fd68e69170d0a75e2bd 100755 (executable)
--- 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));