while (my $line = <$fh>) {
# History graph line.
- if ($line =~ m{^([|/\\ ]+)$}) {
+ if ($line =~ m{^([|/\\_ ]+)$}) {
print colored($line, $color_graph);
next;
}
# Strip leading whitespace.
$refs =~ s/^\s+//;
- printf "%s %s %s %s %s %s\n",
- $prefix, $hash, $date, $author, $message, $refs;
+ if ($refs ne '') {
+ $refs = ' ' . $refs;
+ }
+
+ printf "%s %s %s %s%s %s\n",
+ $prefix, $hash, $date, $author, $refs, $message;
}
close $fh or die $!;