dougm 02/04/01 19:52:30
Modified: perl-framework/Apache-Test/lib/Apache TestRequest.pm
Log:
reset => 1 arg to user_agent will undef the cached UA object
Revision Changes Path
1.69 +4 -0
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.68
retrieving revision 1.69
diff -u -r1.68 -r1.69
--- TestRequest.pm 2 Apr 2002 03:34:49 -0000 1.68
+++ TestRequest.pm 2 Apr 2002 03:52:30 -0000 1.69
@@ -71,6 +71,10 @@
sub user_agent {
my $args = [EMAIL PROTECTED];
+ if (delete $args->{reset}) {
+ $UA = undef;
+ }
+
$args->{keep_alive} ||= $ENV{APACHE_TEST_HTTP11};
if ($args->{keep_alive}) {
