summaryrefslogtreecommitdiff
path: root/Master/tlpkg/installer/install-menu-text.pl
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2009-10-07 11:17:45 +0000
committerNorbert Preining <preining@logic.at>2009-10-07 11:17:45 +0000
commit4773e66b6b71c419406ad836e67997034ade6568 (patch)
tree9a37c952edebddc3743127a9f73faf454ef2a216 /Master/tlpkg/installer/install-menu-text.pl
parent8649889a23d0e13292266b9a12ae94c27a361ed4 (diff)
first ask whether import should be done, then import, and give a hint
that warning messages about unknown category Documentation are fine ;-) git-svn-id: svn://tug.org/texlive/trunk@15666 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/installer/install-menu-text.pl')
-rwxr-xr-xMaster/tlpkg/installer/install-menu-text.pl8
1 files changed, 4 insertions, 4 deletions
diff --git a/Master/tlpkg/installer/install-menu-text.pl b/Master/tlpkg/installer/install-menu-text.pl
index bc7ff0911b2..33c5881b142 100755
--- a/Master/tlpkg/installer/install-menu-text.pl
+++ b/Master/tlpkg/installer/install-menu-text.pl
@@ -113,9 +113,9 @@ sub run_menu_text {
# but the -old-installation-found
while (@args) {
my $f = shift @args;
- if ($f eq "-old-installation-found") {
- print "\nAn old installation of TeX Live has been found in ",
- $previoustlpdb->root, "\n";
+ if ($f =~ m/^-old-installation-found=(.*)$/) {
+ my $dn = $1;
+ print "\nAn old installation of TeX Live has been found in $dn\n";
print "
If you want the selection of collections and various options being taken
over press `y', otherwise anything else.
@@ -123,7 +123,7 @@ over press `y', otherwise anything else.
Import settings from previous TeX Live installation: (y/n): ";
chomp(my $yn = <STDIN>);
if ($yn =~ m/^y$/i) {
- import_settings_from_old_tlpdb();
+ import_settings_from_old_tlpdb($dn);
}
}
}