cvs commit: modperl-2.0/t/protocol/TestProtocol echo.pm

[stas]

stas        2004/04/22 16:21:36

  Modified:    t/protocol/TestProtocol echo.pm
  Log:
  cleanups
  
  Revision  Changes    Path
  1.7       +3 -3      modperl-2.0/t/protocol/TestProtocol/echo.pm
  
  Index: echo.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/protocol/TestProtocol/echo.pm,v
  retrieving revision 1.6
  retrieving revision 1.7
  diff -u -u -r1.6 -r1.7
  --- echo.pm   22 Apr 2004 23:14:31 -0000      1.6
  +++ echo.pm   22 Apr 2004 23:21:36 -0000      1.7
  @@ -20,11 +20,11 @@
       # non-blocking socket
       my $nonblocking = $socket->opt_get(APR::SO_NONBLOCK);
       if ($nonblocking) {
  -        my $success = $socket->opt_set(APR::SO_NONBLOCK => 0);
  +        $socket->opt_set(APR::SO_NONBLOCK => 0);
   
           # test that we really are in the non-blocking mode
  -        $nonblocking = $socket->opt_get(APR::SO_NONBLOCK);
  -        die "failed to set non-blocking mode" if $nonblocking;
  +        $socket->opt_get(APR::SO_NONBLOCK)
  +            or die "failed to set non-blocking mode";
       }
   
       my $buff;