From 1c648a68ca221309d5f1ba01e27245c996bc5e5f Mon Sep 17 00:00:00 2001
From: Norbert Preining <preining@logic.at>
Date: Sun, 16 Apr 2017 02:14:32 +0000
Subject: simplify code, drop last appearance of menu_integration

git-svn-id: svn://tug.org/texlive/trunk@43834 c570f23f-e606-0410-a88d-b1316a301751
---
 Master/install-tl | 14 ++++----------
 1 file changed, 4 insertions(+), 10 deletions(-)

(limited to 'Master/install-tl')

diff --git a/Master/install-tl b/Master/install-tl
index d7c96322204..665811c63b6 100755
--- a/Master/install-tl
+++ b/Master/install-tl
@@ -575,7 +575,10 @@ foreach my $key (sort keys %vars) {
 }
 log("Settings:\n" . $varsdump);
 
-sanitise_options();
+# portable option overrides any system integration options
+$vars{'instopt_adjustpath'} = 0 if $vars{'instopt_portable'};
+$vars{'tlpdbopt_file_assocs'} = 0 if $vars{'instopt_portable'};
+$vars{'tlpdbopt_desktop_integration'} = 0 if $vars{'instopt_portable'};
 install_warnlines_hook(); # collect warnings in @::WARNLINES
 info("Installing to: $vars{TEXDIR}\n");
 
@@ -780,7 +783,6 @@ sub do_installation {
   }
   if ($vars{'instopt_portable'}) {
     $vars{'tlpdbopt_desktop_integration'} = 0;
-    $vars{'tlpdbopt_menu_integration'} = 0;
     $vars{'tlpdbopt_file_assocs'} = 0;
     $vars{'instopt_adjustpath'} = 0;
     $vars{'tlpdbopt_w32_multi_user'} = 0;
@@ -1904,14 +1906,6 @@ sub read_profile {
   }
 } # read_profile
 
-# helper subroutine to do sanity check of options before installation
-sub sanitise_options {
-  # portable option overrides any system integration options
-  $vars{'instopt_adjustpath'} = 0 if $vars{'instopt_portable'};
-  $vars{'tlpdbopt_file_assocs'} = 0 if $vars{'instopt_portable'};
-  $vars{'tlpdbopt_desktop_integration'} = 0 if $vars{'instopt_portable'};
-} # sanitise_options
-
 sub do_install_packages {
   my @what;
   foreach my $package (sort keys %install) {
-- 
cgit v1.2.3