summaryrefslogtreecommitdiff
path: root/Master/install-tl.pl
diff options
context:
space:
mode:
authorSiep Kroonenberg <siepo@cybercomm.nl>2008-02-25 15:53:19 +0000
committerSiep Kroonenberg <siepo@cybercomm.nl>2008-02-25 15:53:19 +0000
commit783675c0cb64a4e6e625b7a4e37c320eaf17fb8d (patch)
tree201360ff7d83762855e41647eb386ec4632f9a16 /Master/install-tl.pl
parent506efaea286d392d8c49a0c4cff49f06a791171b (diff)
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
Diffstat (limited to 'Master/install-tl.pl')
-rwxr-xr-xMaster/install-tl.pl17
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();
}
#