undef/git-commit-vandalism
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

cvsserver: make the output of 'update' more compatible with cvs.

Browse Source 
Native cvs update outputs the string "cvs update: Updating <DIR>" for
every directory it processes (to stderr) unless -q or -Q is given on
comman-line. This is used, e.g., by emacs pcl-cvs to split files by
directory. This commit implements this feature in cvsserver.

Signed-off-by: Sergei Organov <osv@javad.com>
Acked-by: Martin Langhoff <martin.langhoff@gmail.com>
Signed-off-by: Junio C Hamano <gitster@pobox.com>
This commit is contained in:
Sergei Organov 2009-12-07 14:11:44 +03:00 committed by Junio C Hamano
parent 902f235378
commit 8e4c4e7dc3
1 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
git-cvsserver.perl
View File

@ -981,6 +981,8 @@ sub req_update
#$log->debug("update state : " . Dumper($state)); #$log->debug("update state : " . Dumper($state));
my $last_dirname = "///";
# foreach file specified on the command line ... # foreach file specified on the command line ...
foreach my $filename ( @{$state->{args}} ) foreach my $filename ( @{$state->{args}} )
{ {
@ -988,6 +990,20 @@ sub req_update
$log->debug("Processing file $filename"); $log->debug("Processing file $filename");
unless ( $state->{globaloptions}{-Q} || $state->{globaloptions}{-q} )
{
my $cur_dirname = dirname($filename);
if ( $cur_dirname ne $last_dirname )
{
$last_dirname = $cur_dirname;
if ( $cur_dirname eq "" )
{
$cur_dirname = ".";
}
print "E cvs update: Updating $cur_dirname\n";
}
}
# if we have a -C we should pretend we never saw modified stuff # if we have a -C we should pretend we never saw modified stuff
if ( exists ( $state->{opt}{C} ) ) if ( exists ( $state->{opt}{C} ) )
{ {