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>
			
			
				maint
			
			
		
							parent
							
								
									c8a99d7674
								
							
						
					
					
						commit
						023782bd4d
					
				|  | @ -784,57 +784,6 @@ sub git_get_references { | ||||||
| 	return \%refs; | 	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 { | sub git_get_rev_name_tags { | ||||||
| 	my $hash = shift || return undef; | 	my $hash = shift || return undef; | ||||||
|  |  | ||||||
|  |  | ||||||
		Loading…
	
		Reference in New Issue
	
	 Jakub Narebski
						Jakub Narebski