X-Git-Url: https://git.ladys.computer/Gitweb/blobdiff_plain/55f06e7063188f3f6034f019e77a73880c5753c0dd1d95875fd36e7e1c87af7d..00bf25ffbb3f4c85bb917db8ce9326afac781bbc57bc469bfb8b372dad9525dd:/gitweb.perl diff --git a/gitweb.perl b/gitweb.perl index 2ff0d7a..5d5401f 100755 --- a/gitweb.perl +++ b/gitweb.perl @@ -3797,7 +3797,8 @@ sub git_get_heads_list { my @headslist; open my $fd, '-|', git_cmd(), 'for-each-ref', - ($limit ? '--count='.($limit+1) : ()), '--sort=-committerdate', + ($limit ? '--count='.($limit+1) : ()), + '--sort=-HEAD', '--sort=-committerdate', '--format=%(objectname) %(refname) %(subject)%00%(committer)', @patterns or return; @@ -4213,19 +4214,20 @@ sub git_header_html { my %opts = @_; my $title = get_page_title(); - my $content_type = get_content_type_html(); - print $cgi->header(-type=>$content_type, -charset => 'utf-8', + print $cgi->header(-type=>get_content_type_html(), -charset => 'utf-8', -status=> $status, -expires => $expires) unless ($opts{'-no_http_header'}); my $mod_perl_version = $ENV{'MOD_PERL'} ? " $ENV{'MOD_PERL'}" : ''; print < - + + +]> - $title