From 6b16e18eb864f0d4b1bdc78546ad642b33dd4d61 Mon Sep 17 00:00:00 2001
From: Markus Goetz <markus@woboq.com>
Date: Tue, 12 May 2015 16:26:04 +0200
Subject: [PATCH] tx.pl: Use HTTP Keep-Alive

---
 csync/tests/ownCloud/ownCloud/Test.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/csync/tests/ownCloud/ownCloud/Test.pm b/csync/tests/ownCloud/ownCloud/Test.pm
index a4fb6bdff..6e755b054 100644
--- a/csync/tests/ownCloud/ownCloud/Test.pm
+++ b/csync/tests/ownCloud/ownCloud/Test.pm
@@ -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,
-- 
2.30.2