git-cvsserver: typofixes

Signed-off-by: Junio C Hamano <junkio@cox.net>
This commit is contained in:
Junio C Hamano 2006-04-25 23:59:28 -07:00
parent e1cbc46d12
commit 5348b6e7f4

View File

@ -88,7 +88,7 @@ my $TEMP_DIR = tempdir( CLEANUP => 1 );
$log->debug("Temporary directory is '$TEMP_DIR'"); $log->debug("Temporary directory is '$TEMP_DIR'");
# if we are called with a pserver argument, # if we are called with a pserver argument,
# deal with the authentication cat before entereing the # deal with the authentication cat before entering the
# main loop # main loop
if (@ARGV && $ARGV[0] eq 'pserver') { if (@ARGV && $ARGV[0] eq 'pserver') {
my $line = <STDIN>; chomp $line; my $line = <STDIN>; chomp $line;
@ -117,7 +117,7 @@ while (<STDIN>)
{ {
chomp; chomp;
# Check to see if we've seen this method, and call appropiate function. # Check to see if we've seen this method, and call appropriate function.
if ( /^([\w-]+)(?:\s+(.*))?$/ and defined($methods->{$1}) ) if ( /^([\w-]+)(?:\s+(.*))?$/ and defined($methods->{$1}) )
{ {
# use the $methods hash to call the appropriate sub for this command # use the $methods hash to call the appropriate sub for this command
@ -173,7 +173,7 @@ sub req_Root
my @gitvars = `git-repo-config -l`; my @gitvars = `git-repo-config -l`;
if ($?) { if ($?) {
print "E problems executing git-repo-config on the server -- this is not a git repository or the PATH is not set correcly.\n"; print "E problems executing git-repo-config on the server -- this is not a git repository or the PATH is not set correctly.\n";
print "E \n"; print "E \n";
print "error 1 - problem executing git-repo-config\n"; print "error 1 - problem executing git-repo-config\n";
return 0; return 0;
@ -224,7 +224,7 @@ sub req_Globaloption
sub req_Validresponses sub req_Validresponses
{ {
my ( $cmd, $data ) = @_; my ( $cmd, $data ) = @_;
$log->debug("req_Validrepsonses : $data"); $log->debug("req_Validresponses : $data");
# TODO : re-enable this, currently it's not particularly useful # TODO : re-enable this, currently it's not particularly useful
#$state->{validresponses} = [ split /\s+/, $data ]; #$state->{validresponses} = [ split /\s+/, $data ];
@ -733,7 +733,7 @@ sub req_update
argsplit("update"); argsplit("update");
# #
# It may just be a client exploring the available heads/modukles # It may just be a client exploring the available heads/modules
# in that case, list them as top level directories and leave it # in that case, list them as top level directories and leave it
# at that. Eclipse uses this technique to offer you a list of # at that. Eclipse uses this technique to offer you a list of
# projects (heads in this case) to checkout. # projects (heads in this case) to checkout.
@ -1731,7 +1731,7 @@ sub transmitfile
} }
# This method takes a file name, and returns ( $dirpart, $filepart ) which # This method takes a file name, and returns ( $dirpart, $filepart ) which
# refers to the directory porition and the file portion of the filename # refers to the directory portion and the file portion of the filename
# respectively # respectively
sub filenamesplit sub filenamesplit
{ {
@ -1790,7 +1790,7 @@ Log::Log4perl
=head2 new =head2 new
Creates a new log object, optionally you can specify a filename here to Creates a new log object, optionally you can specify a filename here to
indicate the file to log to. If no log file is specified, you can specifiy one indicate the file to log to. If no log file is specified, you can specify one
later with method setfile, or indicate you no longer want logging with method later with method setfile, or indicate you no longer want logging with method
nofile. nofile.
@ -2595,7 +2595,7 @@ sub in_array
=head2 safe_pipe_capture =head2 safe_pipe_capture
an alterative to `command` that allows input to be passed as an array an alternative to `command` that allows input to be passed as an array
to work around shell problems with weird characters in arguments to work around shell problems with weird characters in arguments
=cut =cut