X-Git-Url: https://git.ladys.computer/Gitweb/blobdiff_plain/7a727b18388a090eac9a443099fddb0a067f6e945f69f5f48b65fa39cc4e047b..2851708a5984c8ee0aa3df7d7ee73c6d092d513beec489333cb46ea0819967e7:/gitweb.perl
diff --git a/gitweb.perl b/gitweb.perl
index fe6c9fe..852896a 100755
--- a/gitweb.perl
+++ b/gitweb.perl
@@ -2814,8 +2814,12 @@ sub git_tags_body {
print "
\n";
}
$alternate ^= 1;
- print "| $tag{'age'} | \n" .
- "" .
+ if (defined $tag{'age'}) {
+ print " | $tag{'age'} | \n";
+ } else {
+ print " | \n";
+ }
+ print "" .
$cgi->a({-href => href(action=>$tag{'reftype'}, hash=>$tag{'refid'}),
-class => "list name"}, esc_html($tag{'name'})) .
" | \n" .
@@ -3209,9 +3213,14 @@ HTML
esc_html($rev));
print "\n";
}
+ open (my $dd, "-|", git_cmd(), "rev-parse", "$full_rev^")
+ or die_error("could not open git-rev-parse");
+ my $parent_commit = <$dd>;
+ close $dd;
+ chomp($parent_commit);
my $blamed = href(action => 'blame',
file_name => $meta->{'filename'},
- hash_base => $full_rev);
+ hash_base => $parent_commit);
print "";
print $cgi->a({ -href => "$blamed#l$orig_lineno",
-id => "l$lineno",
@@ -4424,7 +4433,7 @@ sub git_shortlog {
}
my $refs = git_get_references();
- my @commitlist = parse_commits($head, 101, (100 * $page));
+ my @commitlist = parse_commits($hash, 101, (100 * $page));
my $paging_nav = format_paging_nav('shortlog', $hash, $head, $page, (100 * ($page+1)));
my $next_link = '';
|