please change me text when location loading did not work

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

1 files changed, 1 insertions, 0 deletions

diff --git a/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui.pl b/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui.pl
index c3560e3b1b3..fe162695455 100755
--- a/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui.pl
+++ b/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui.pl
@@ -138,6 +138,7 @@ sub init_install_media {
       $mw->Dialog(-title => "warning",
                  -text => "Could not load the TeX Live Database from $newroot\nIf you want to install or update packages, please try with a different installation source/location!\n\nFor configuration and removal you don't have to do anything.",
                         -buttons => [ "Ok" ])->Show;
+      $location = "...please change me...";
       @allpackages = ();
     } else {
       $tlmediatlpdb = $tlmediasrc->tlpdb;