git-cvsserver: typofixes
Signed-off-by: Junio C Hamano <junkio@cox.net>
This commit is contained in:
parent
e1cbc46d12
commit
5348b6e7f4
@ -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
|
||||||
|
Loading…
Reference in New Issue
Block a user