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);