kernel
/
git
mirror of https://git.kernel.org/pub/scm/git/git.git
1
0
Fork 0
Code Releases Activity

cvsserver: Add cvs co -c support 

Implement cvs checkout's -c option by returning a list of all "modules".
This is more useful than displaying a perl warning if -c is given.

Signed-off-by: Lars Noschinski <lars@public.noschinski.de>
Signed-off-by: Junio C Hamano <gitster@pobox.com>
maint
Lars Noschinski 2008-07-17 19:00:29 +02:00 committed by Junio C Hamano
parent b20171ebf7
commit 89a9167fac
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
git-cvsserver.perl
View File

@ -801,6 +801,18 @@ sub req_co


argsplit("co"); argsplit("co");


# Provide list of modules, if -c was used.
if (exists $state->{opt}{c}) {
my $showref = `git show-ref --heads`;
for my $line (split '\n', $showref) {
if ( $line =~ m% refs/heads/(.*)$% ) {
print "M $1\t$1\n";
}
}
print "ok\n";
return 1;
}

my $module = $state->{args}[0]; my $module = $state->{args}[0];
$state->{module} = $module; $state->{module} = $module;
my $checkout_path = $module; my $checkout_path = $module;