From b20171ebf7df3c31cce5cde3efaaf257b4ac2447 Mon Sep 17 00:00:00 2001 From: Lars Noschinski Date: Thu, 17 Jul 2008 19:00:27 +0200 Subject: [PATCH] cvsserver: Add support for packed refs req_update still parses /refs/heads manually. Replace this by a call to show-ref. Signed-off-by: Lars Noschinski Signed-off-by: Junio C Hamano --- git-cvsserver.perl | 22 ++++++++-------------- 1 file changed, 8 insertions(+), 14 deletions(-) diff --git a/git-cvsserver.perl b/git-cvsserver.perl index e5ba57f39..23b8ed398 100755 --- a/git-cvsserver.perl +++ b/git-cvsserver.perl @@ -947,21 +947,15 @@ sub req_update # projects (heads in this case) to checkout. # if ($state->{module} eq '') { - my $heads_dir = $state->{CVSROOT} . '/refs/heads'; - if (!opendir HEADS, $heads_dir) { - print "E [server aborted]: Failed to open directory, " - . "$heads_dir: $!\nerror\n"; - return 0; - } + my $showref = `git show-ref --heads`; print "E cvs update: Updating .\n"; - while (my $head = readdir(HEADS)) { - if (-f $state->{CVSROOT} . '/refs/heads/' . $head) { - print "E cvs update: New directory `$head'\n"; - } - } - closedir HEADS; - print "ok\n"; - return 1; + for my $line (split '\n', $showref) { + if ( $line =~ m% refs/heads/(.*)$% ) { + print "E cvs update: New directory `$1'\n"; + } + } + print "ok\n"; + return 1; } -- 2.26.2