implement --persistent-downloads using LWP

git-svn-id: svn://tug.org/texlive/trunk@16424 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 13 insertions, 0 deletions

diff --git a/Master/install-tl b/Master/install-tl
index c37f1c72008..a66a755d9c7 100755
--- a/Master/install-tl
+++ b/Master/install-tl
@@ -57,6 +57,7 @@ use TeXLive::TLUtils qw(platform platform_desc
 use TeXLive::TLPOBJ;
 use TeXLive::TLPDB;
 use TeXLive::TLConfig;
+use TeXLive::TLDownload;
 
 if (win32) {
   require TeXLive::TLWinGoo;
@@ -159,6 +160,7 @@ my $opt_scheme = "";
 my $opt_custom_bin;
 my $opt_version = 0;
 my $opt_force_arch;
+my $opt_persistent_downloads = 0;
 
 # show all options even those not relevant for that arch
 $::opt_all_options = 0;
@@ -212,6 +214,7 @@ GetOptions(
            "profile=s"      => \$opt_profile,
            "scheme=s"       => \$opt_scheme,
            "all-options"    => \$::opt_all_options,
+           "persistent-downloads"      => \$opt_persistent_downloads,
            "version"        => \$opt_version,
            "help|?"         => \$opt_help) or pod2usage(1);
 
@@ -415,6 +418,7 @@ if ($media eq "DVD") {
 } elsif ($media eq "NET") {
   info("Distribution: net  (downloading)\n");
   info("Using URL: $TeXLiveURL\n");
+  TeXLive::TLUtils::setup_persistent_downloads() if $opt_persistent_downloads;
 } else {
   info("Distribution: $media\n");
 }
@@ -1846,6 +1850,15 @@ will be adjusted accordingly.
 For backward compatibility and convenience, C<--location> and C<--repo>
 are accepted as aliases for this option.
 
+=item B<-persistent-downloads>
+
+Try to set up a persistent connection using Net::LWP if
+you are installing from the network. This will keep the connection
+between your computer and the server open for the whole session and
+reuse this connection.
+
+This option should reduce the probability to have connection problems.
+
 =item B<-no-cls>
 
 (only for text mode installer) do not clear the screen when entering