dougm 02/04/03 16:54:26
Modified: perl-framework/Apache-Test/lib/Apache TestRequest.pm
Log:
add lwp_trace to do_request
Revision Changes Path
1.71 +2 -1
httpd-test/perl-framework/Apache-Test/lib/Apache/TestRequest.pm
Index: TestRequest.pm
===================================================================
RCS file:
/home/cvs/httpd-test/perl-framework/Apache-Test/lib/Apache/TestRequest.pm,v
retrieving revision 1.70
retrieving revision 1.71
diff -u -r1.70 -r1.71
--- TestRequest.pm 2 Apr 2002 17:47:00 -0000 1.70
+++ TestRequest.pm 4 Apr 2002 00:54:26 -0000 1.71
@@ -101,7 +101,8 @@
sub do_request {
my($ua, $method, $url, $callback) = @_;
my $r = HTTP::Request->new($method, resolve_url($url));
- $ua->request($r, $callback);
+ my $response = $ua->request($r, $callback);
+ lwp_trace($response);
}
sub hostport {
