cvs commit: modperl-2.0/t/preconnection/TestPreConnection note.pm

[stas]

stas        2003/08/07 12:01:35

  Modified:    t/preconnection/TestPreConnection note.pm
  Log:
  add debug tracing
  
  Revision  Changes    Path
  1.5       +4 -0      modperl-2.0/t/preconnection/TestPreConnection/note.pm
  
  Index: note.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/preconnection/TestPreConnection/note.pm,v
  retrieving revision 1.4
  retrieving revision 1.5
  diff -u -r1.4 -r1.5
  --- note.pm   13 May 2003 01:06:47 -0000      1.4
  +++ note.pm   7 Aug 2003 19:01:35 -0000       1.5
  @@ -5,12 +5,16 @@
   
   use Apache::Connection ();
   
  +use Apache::TestTrace;
  +
   use Apache::Const -compile => qw(OK);
   
   sub handler {
       my Apache::Connection $c = shift;
   
       my $ip = $c->remote_ip;
  +
  +    debug "ip: $ip";
   
       $c->notes->set(preconnection => $ip);