hub adc had an unused extra return value from check_access; fixed

This commit is contained in:
Sitaram Chamarty 2011-03-13 09:06:48 +05:30
parent 3677bc5a4d
commit c3787e2d17

View file

@ -369,7 +369,7 @@ sub parent_repo {
sub readable_repo {
my $repo = valid_repo(shift);
my ($perm, $creator, $wild) = check_access($repo);
my ($perm, $creator) = check_access($repo);
die "$repo does not exist or you have no read access\n" unless $perm =~ /R/;
return ($repo, $creator);
}
@ -394,7 +394,7 @@ sub valid_repo {
sub writable_repo {
my $repo = valid_repo(shift);
my ($perm, $creator, $wild) = check_access($repo);
my ($perm, $creator) = check_access($repo);
die "$repo does not exist or you have no write access\n" unless $perm =~ /W/;
return ($repo, $creator);
}