From d11e99ad008ba1e3fbeb4c74a61b3b5979a100b7 Mon Sep 17 00:00:00 2001 From: Siep Kroonenberg Date: Mon, 19 May 2008 16:35:29 +0000 Subject: Split win32 filetypes in extension<=>filetype and filetype<=>command git-svn-id: svn://tug.org/texlive/trunk@8236 c570f23f-e606-0410-a88d-b1316a301751 --- Master/install-tl | 23 +++++++---------------- 1 file changed, 7 insertions(+), 16 deletions(-) (limited to 'Master/install-tl') diff --git a/Master/install-tl b/Master/install-tl index 58eb934724d..9aca143fdfa 100755 --- a/Master/install-tl +++ b/Master/install-tl @@ -73,8 +73,10 @@ if (win32) { &unsetenv_reg &add_texbindir_to_path &remove_texbindirs_from_path - ®ister_script_type - &unregister_script_type + ®ister_extension + &unregister_extension + ®ister_file_type + &unregister_file_type &broadcast_env &update_assocs &add_desktop_shortcut @@ -411,7 +413,8 @@ sub do_installation { save_options_into_tlpdb(); do_install_packages(); if (win32()) { - do_win_registry_magic(); + add_texbindir_to_path($vars{'TEXDIR'}.'/bin/win32'); + broadcast_env(); create_uninstaller($vars{'TEXDIR'}); } foreach my $h (@::start_postinst_hook) { @@ -857,7 +860,7 @@ operations might be disturbed.\n\n"; &{$PostInstall{$package}}($TEXDIR, $TEXMFSYSVAR, $TEXMFLOCAL); } } - + update_assocs() if win32(); # Step 4: run the programs @@ -1003,18 +1006,6 @@ sub do_texmf_cnf { close(TMF); } -# register texlua handlers etc etc -sub do_win_registry_magic { - # we are called under if (win32()) !! - my $texbindir = $vars{'TEXDIR'}."\\bin\\win32"; - $texbindir =~ s!/!\\!g; - add_texbindir_to_path($texbindir); - # setenv_reg('TEXBINDIR', $texbindir); - # register_script_type(".texlua", "%TEXBINDIR%/texlua.exe"); - broadcast_env(); - # update_assocs(); -} - # # do everything to select a scheme # -- cgit v1.2.3