cvs commit: modperl-2.0/Apache-Test/lib/Apache TestServer.pm

[sbekman]

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";