# Aliases in Git with "! ..." are always run in the top-level-directory.
# GIT_PREFIX contains the relative path to the current subdirectory. Thanks to
-# dr_lepper in #git on Freenode (2013-04-03 23:17) for telling me about
+# dr_lepper in #git on Freenode (2013-04-03 23:17 CEST) for telling me about
# GIT_PREFIX.
if (defined $ENV{GIT_PREFIX} and $ENV{GIT_PREFIX} ne '') {
chdir $ENV{GIT_PREFIX} or die $!;
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));