cvs commit: modperl-2.0/t/response/TestAPI conn_rec.pm

[stas]

stas        2004/08/12 19:01:47

  Modified:    t/response/TestAPI conn_rec.pm
  Log:
  $c->id could be zero
  
  Revision  Changes    Path
  1.14      +2 -1      modperl-2.0/t/response/TestAPI/conn_rec.pm
  
  Index: conn_rec.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestAPI/conn_rec.pm,v
  retrieving revision 1.13
  retrieving revision 1.14
  diff -u -u -r1.13 -r1.14
  --- conn_rec.pm       12 Aug 2004 06:45:53 -0000      1.13
  +++ conn_rec.pm       13 Aug 2004 02:01:46 -0000      1.14
  @@ -48,7 +48,8 @@
   
       ok $c->local_host || 1;
   
  -    ok $c->id;
  +    t_debug "id", ($c->id == 0 ? "zero" : $c->id);
  +    ok $c->id || 1;
   
       ok $c->notes;