From 7a3ba3138290c49da244552d62e88a08b2d14e78 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Wed, 16 Dec 2009 07:06:01 +0000 Subject: implement --persistent-downloads using LWP git-svn-id: svn://tug.org/texlive/trunk@16424 c570f23f-e606-0410-a88d-b1316a301751 --- Master/install-tl | 13 +++++++++++++ 1 file changed, 13 insertions(+) (limited to 'Master/install-tl') 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 -- cgit v1.2.3