cvs commit: modperl-2.0/t/response/TestAPR netlib.pm

[dougm]

dougm       02/05/12 19:49:05

  Modified:    t/response/TestAPR netlib.pm
  Log:
  fix for win32
  
  Revision  Changes    Path
  1.5       +8 -2      modperl-2.0/t/response/TestAPR/netlib.pm
  
  Index: netlib.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestAPR/netlib.pm,v
  retrieving revision 1.4
  retrieving revision 1.5
  diff -u -r1.4 -r1.5
  --- netlib.pm 13 May 2002 00:49:18 -0000      1.4
  +++ netlib.pm 13 May 2002 02:49:05 -0000      1.5
  @@ -33,12 +33,18 @@
       ok $ipsub->test($c->remote_addr);
   
       my $reverse_remote_ip = scalar reverse $ip;
  -    $ipsub = APR::IpSubnet->new($p, $reverse_remote_ip);
   
       ok t_cmp($reverse_remote_ip, scalar reverse($c->remote_addr->ip_get),
                "reversed remote_ip eq reversed remote_addr->ip_get");
   
  -    ok ! $ipsub->test($c->remote_addr);
  +    $ipsub = APR::IpSubnet->new($p, $reverse_remote_ip);
  +
  +    if (!$ipsub) {
  +        ok 1; #this happens on win32
  +    }
  +    else {
  +        ok ! $ipsub->test($c->remote_addr);
  +    }
   
       Apache::OK;
   }