tx.pl: Use HTTP Keep-Alive

This commit is contained in:
Markus Goetz 2015-05-12 16:26:04 +02:00
parent c2dacd03a5
commit 6b16e18eb8

View file

@ -124,7 +124,8 @@ sub initTesting(;$)
$ENV{PERL_LWP_SSL_VERIFY_HOSTNAME} = 0
}
$d = HTTP::DAV->new();
my $ua = HTTP::DAV::UserAgent->new(keep_alive => 1 );
$d = HTTP::DAV->new(-useragent => $ua);
$d->credentials( -url=> $owncloud, -realm=>"ownCloud",
-user=> $user,