Mailing-List: contact modperl-cvs-help@apache.org; run by ezmlm
Precedence: bulk
Reply-To: dev@perl.apache.org
Date: 24 Jun 2001 08:15:21 -0000
Message-ID: <20010624081521.83977.qmail@apache.org>
From: sbekman@apache.org
To: modperl-2.0-cvs@apache.org
Subject: cvs commit: modperl-2.0/Apache-Test/lib/Apache TestServer.pm

sbekman     01/06/24 01:15:21

  Modified:    Apache-Test/lib/Apache TestServer.pm
  Log:
  - comply with return API convention (undocumented)
  - start to document the API
  
  Revision  Changes    Path
  1.8       +12 -1     modperl-2.0/Apache-Test/lib/Apache/TestServer.pm
  
  Index: TestServer.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/Apache-Test/lib/Apache/TestServer.pm,v
  retrieving revision 1.7
  retrieving revision 1.8
  diff -u -r1.7 -r1.8
  --- TestServer.pm	2001/06/24 08:08:09	1.7
  +++ TestServer.pm	2001/06/24 08:15:21	1.8
  @@ -137,6 +137,17 @@
       }
   }
   
  +=head2 stop()
  +
  +attempt to stop the server.
  +
  +returns:
  +
  +  on success: $pid of the server
  +  on failure: -1
  +
  +=cut
  +
   sub stop {
       my $self = shift;
       my $aborted = shift;
  @@ -148,7 +159,7 @@
       my $port = $self->{config}->{vars}->{port};
   
       warning("server $self->{name} is not running"),
  -        return unless $self->ping;
  +        return -1 unless $self->ping;
   
       while ($self->ping) {
           #my $state = $tried_kill ? "still" : "already";