diff options
-rw-r--r-- | Master/install-tl.bat.manifest | 15 | ||||
-rw-r--r-- | Master/tlpkg/TeXLive/TLWinGoo.pm | 6 |
2 files changed, 21 insertions, 0 deletions
diff --git a/Master/install-tl.bat.manifest b/Master/install-tl.bat.manifest new file mode 100644 index 00000000000..db23e0e8c8e --- /dev/null +++ b/Master/install-tl.bat.manifest @@ -0,0 +1,15 @@ +<?xml version="1.0" encoding="UTF-8" standalone="yes"?> +<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0"> + <assemblyIdentity + version="1.0.0.0" + processorArchitecture="*" + name="install-tl" + type="win32"/> + <trustInfo xmlns="urn:schemas-microsoft-com:asm.v3"> + <security> + <requestedPrivileges> + <requestedExecutionLevel level="asInvoker"/> + </requestedPrivileges> + </security> + </trustInfo> +</assembly> diff --git a/Master/tlpkg/TeXLive/TLWinGoo.pm b/Master/tlpkg/TeXLive/TLWinGoo.pm index e4d5fa5c0b4..5350a32bb7f 100644 --- a/Master/tlpkg/TeXLive/TLWinGoo.pm +++ b/Master/tlpkg/TeXLive/TLWinGoo.pm @@ -847,6 +847,7 @@ the job. sub create_uninstaller { my $tdfw = shift; + $tdfw =~ s![\\/]$!!; my $td = $tdfw; $td =~ s!/!\\!g; @@ -861,6 +862,9 @@ sub create_uninstaller { open UNINST, ">$tdfw/tlpkg/installer/uninst.bat"; print UNINST <<UNEND; +\@echo off +echo Do you really want to remove TeX Live 2008? Type Ctrl-C to abort. +pause set PERL5LIB= \"$td\\tlpkg\\tlperl\\bin\\perl.exe\" \"$td\\texmf\\scripts\\texlive\\uninstall-tl.pl\" copy \"$td\\tlpkg\\installer\\uninst2.bat\" \"\%TEMP\%\" @@ -879,6 +883,8 @@ rmdir /s /q \"$td\\tlpkg\" rmdir /s /q \"$td\\temp\" rmdir /s /q \"$td\\bin\" del \"$td\\install-tl.log\" +\@echo Done uninstalling TeXLive. +\@pause del %0 UNEND2 close UNINST2; |