texlive[44614] Master/install-tl: fix missing profile key renames

[commits+preining at tug.org]

Revision: 44614
          http://tug.org/svn/texlive?view=revision&revision=44614
Author:   preining
Date:     2017-06-16 10:53:43 +0200 (Fri, 16 Jun 2017)
Log Message:
-----------
fix missing profile key renames

Modified Paths:
--------------
    trunk/Master/install-tl

Modified: trunk/Master/install-tl
===================================================================
--- trunk/Master/install-tl	2017-06-16 00:21:19 UTC (rev 44613)
+++ trunk/Master/install-tl	2017-06-16 08:53:43 UTC (rev 44614)
@@ -1822,12 +1822,23 @@
     'option_sys_bin'    => 'tlpdbopt_sys_bin',
     'option_sys_info'   => 'tlpdbopt_sys_info',
     'option_sys_man'    => 'tlpdbopt_sys_man',
+    'option_file_assocs' => 'tlpdbopt_file_assocs',
+    'option_backupdir'  => 'tlpdbopt_backupdir',
+    'option_w32_multi_user' => 'tlpdbopt_w32_multi_user',
+    'option_post_code'  => 'tlpdbopt_post_code',
+    'option_autobackup' => 'tlpdbopt_autobackup',
+    'option_desktop_integration' => 'tlpdbopt_desktop_integration',
     'option_adjustrepo' => 'instopt_adjustrepo',
     'option_letter'     => 'instopt_letter',
     'option_path'       => 'instopt_adjustpath',
     'option_symlinks'   => 'instopt_adjustpath',
     'portable'          => 'instopt_portable',
+    'option_write18_restricted' => 'instopt_write18_restricted',
   );
+  my %keylost = (
+    'option_menu_integration' => 1,
+    'in_place' => 1,
+  );
 
   open PROFILE, "<$profilepath"
     or die "$0: Cannot open profile $profilepath for reading.\n";
@@ -1846,6 +1857,10 @@
     next if ($k eq "TEXDIRW");
     # convert old keys to new keys
     $k = $keyrename{$k} if ($keyrename{$k});
+    if ($keylost{$k}) {
+      tlwarn("Profile key `$k' is now ignored, please remove it.\n");
+      next;
+    }
     $pro{$k} = $v;
     $profiledata{$k} = $v;
   }