diff options
author | Siep Kroonenberg <siepo@cybercomm.nl> | 2008-02-25 19:41:48 +0000 |
---|---|---|
committer | Siep Kroonenberg <siepo@cybercomm.nl> | 2008-02-25 19:41:48 +0000 |
commit | 22591f8f533f27ac66dc4fbaacedf25c1870cd18 (patch) | |
tree | fd29da411470bde057d58140c1c5563202d8b187 /Master/tlpkg/doc/wingoo-demo.pl | |
parent | 26100be560a2f5e5d4c67d640cd288d08d575128 (diff) |
Added: tlpkg/installer/uninstall-try.[pl|bat],
only tested under windows. It just undoes registry- and environment
settings.
Also: perllib/Win32/Env.pm removed.
git-svn-id: svn://tug.org/texlive/trunk@6754 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/doc/wingoo-demo.pl')
-rw-r--r-- | Master/tlpkg/doc/wingoo-demo.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Master/tlpkg/doc/wingoo-demo.pl b/Master/tlpkg/doc/wingoo-demo.pl index bcf4759d25d..4be176de85a 100644 --- a/Master/tlpkg/doc/wingoo-demo.pl +++ b/Master/tlpkg/doc/wingoo-demo.pl @@ -16,7 +16,7 @@ BEGIN { if ($me=~m!/!) { # wingoo-demo now in a subsubdirectory: - ($::installerdir=$me)=~s!(.*)\/tlpkg\/doc\/.*$!$1!; + ($::installerdir=$me)=~s!(.*)/[^/]+/[^/]+/[^/]*$!$1!; } else { # This shouldn't occur if called from batchfile $::installerdir='./../..'; @@ -26,7 +26,7 @@ BEGIN { } use TeXLive::TLUtils qw( get_system_tmpdir ); -use TeXLive::TLWinGooTry qw( +use TeXLive::TLWinGoo qw( &admin &non_admin &admin_again |