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

[stas]

stas        2004/09/16 17:07:43

  Modified:    t/response/TestAPI aplog.pm
  Log:
  prefork bug fix
  
  Revision  Changes    Path
  1.20      +2 -1      modperl-2.0/t/response/TestAPI/aplog.pm
  
  Index: aplog.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestAPI/aplog.pm,v
  retrieving revision 1.19
  retrieving revision 1.20
  diff -u -u -r1.19 -r1.20
  --- aplog.pm  16 Sep 2004 23:59:16 -0000      1.19
  +++ aplog.pm  17 Sep 2004 00:07:43 -0000      1.20
  @@ -117,10 +117,11 @@
               # ok t_cmp $logdiff->diff...
           }
   
  +        t_server_log_warn_is_expected();
           $s->loglevel(Apache::LOG_DEBUG);
           $slog->debug(sub { ok 1; "$package test done" });
           ok t_cmp $logdiff->diff,
  -            qr/\$slog->debug\(sub \{/,
  +            qr/TestAPI::aplog test done/,
               '$slog->debug(sub { })';
   
       }