TLWinGoo: better support for an uninstaller.

Added function update_assocs to notify the system of changed file
associations.
Updates to wingoo-demo


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

1 files changed, 9 insertions, 8 deletions

diff --git a/Master/install-tl.pl b/Master/install-tl.pl
index 03346decdf6..1a149c1e8d6 100755
--- a/Master/install-tl.pl
+++ b/Master/install-tl.pl
@@ -7,7 +7,7 @@
 # This file is licensed under the GNU General Public License version 2
 # or any later version.
 #
-# TODO: 
+# TODO:
 #  - support option_paper (paper instead of A4)
 #    missing
 
@@ -763,7 +763,7 @@ sub do_postinst_stuff {
   my $perl_libdir="$TEXDIR/tlpkg/tlperl/lib";
 
   tllog($::LOG_NORMAL, "Prepending $plat_bindir to PATH\n");
-  
+
   $ENV{'PATH'}="$plat_bindir" . "$pathsep" . "$ENV{'PATH'}";
 
   if (win32) {
@@ -789,16 +789,16 @@ sub do_postinst_stuff {
   system('mktexlsr', "$TEXDIR/texmf-dist", "$TEXDIR/texmf");
 
   # we have to generate the various config file. That could be done with
-  # texconfig generate * but Win32 does not have texconfig. But we have 
+  # texconfig generate * but Win32 does not have texconfig. But we have
   # $localtlpdb and this is simple code, so do it directly, i.e., duplicate
   # the code from the various generate-*.pl scripts
   tllog($::LOG_NORMAL, "writing fmtutil.cnf data to $TEXMFSYSVAR/web2c/fmtutil.cnf\n");
-  TeXLive::TLUtils::create_fmtutil($localtlpdb, 
+  TeXLive::TLUtils::create_fmtutil($localtlpdb,
     "$TEXMFSYSVAR/web2c/fmtutil.cnf",
     "$TEXMFLOCAL/web2c/fmtutil-local.cnf");
 
   tllog($::LOG_NORMAL, "writing updmap.cfg to $TEXMFSYSVAR/web2c/updmap.cfg\n");
-  TeXLive::TLUtils::create_updmap ($localtlpdb, 
+  TeXLive::TLUtils::create_updmap ($localtlpdb,
     "$TEXMFSYSVAR/web2c/updmap.cfg",
     "$TEXMFLOCAL/web2c/updmap-local.cfg");
 
@@ -809,7 +809,7 @@ sub do_postinst_stuff {
 
   tllog($::LOG_NORMAL, "running updmap-sys\n");
   system('updmap-sys', '--nohash');
-  
+
   tllog($::LOG_NORMAL, "re-running mktexlsr $TEXMFSYSVAR\n");
   system('mktexlsr', "$TEXMFSYSVAR");
 
@@ -920,7 +920,7 @@ sub do_texmf_cnf {
       push @newtmf, $line;
     }
   }
-  open(TMF,">$vars{'TEXDIR'}/texmf/web2c/texmf.cnf") 
+  open(TMF,">$vars{'TEXDIR'}/texmf/web2c/texmf.cnf")
       or die("Can't open $vars{'TEXDIR'}/texmf/web2c/texmf.cnf for writing: $!\n");
   foreach (@newtmf) { print TMF; }
   close(TMF);
@@ -933,7 +933,8 @@ sub do_win_registry_magic {
   #$winpath =~ s!/!\\!g;
   add_texbindir_to_path($winpath);
   register_script_type(".texlua", $winpath."/texlua.exe");
-  broadcast_env;
+  broadcast_env();
+  update_assocs();
 }
 
 #