gitweb: Remove unused git_get_{preceding,following}_references

Remove unused (and with errors in implementation)
git_get_{preceding,following}_references subroutines.

Signed-off-by: Jakub Narebski <jnareb@gmail.com>
Signed-off-by: Junio C Hamano <junkio@cox.net>
This commit is contained in:
Jakub Narebski 2006-08-27 23:44:38 +02:00 committed by Junio C Hamano
parent c8a99d7674
commit 023782bd4d

View file

@ -784,57 +784,6 @@ sub git_get_references {
return \%refs;
}
sub git_get_following_references {
my $hash = shift || return undef;
my $type = shift;
my $base = shift || $hash_base || "HEAD";
my $refs = git_get_references($type);
open my $fd, "-|", $GIT, "rev-list", $base
or return undef;
my @commits = map { chomp; $_ } <$fd>;
close $fd
or return undef;
my @reflist;
my $lastref;
foreach my $commit (@commits) {
foreach my $ref (@{$refs->{$commit}}) {
$lastref = $ref;
push @reflist, $lastref;
}
if ($commit eq $hash) {
last;
}
}
return wantarray ? @reflist : $lastref;
}
sub git_get_preceding_references {
my $hash = shift || return undef;
my $type = shift;
my $refs = git_get_references($type);
open my $fd, "-|", $GIT, "rev-list", $hash
or return undef;
my @commits = map { chomp; $_ } <$fd>;
close $fd
or return undef;
my @reflist;
foreach my $commit (@commits) {
foreach my $ref (@{$refs->{$commit}}) {
return $ref unless wantarray;
push @reflist, $ref;
}
}
return @reflist;
}
sub git_get_rev_name_tags {
my $hash = shift || return undef;