diff options
| author | Norbert Preining <preining@logic.at> | 2012-05-22 22:46:00 +0000 |
|---|---|---|
| committer | Norbert Preining <preining@logic.at> | 2012-05-22 22:46:00 +0000 |
| commit | ff83082dc566fd4fcfd2e67b9d09310d8d699fd5 (patch) | |
| tree | 69539f1fe70ea1e2ac74a0b90512eb4b715e0a9f /Master/texmf | |
| parent | 6ca2c2532880aa10aed5711e5971ffb758e7fe75 (diff) | |
add a our declaration to make some perls happy
git-svn-id: svn://tug.org/texlive/trunk@26574 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf')
| -rw-r--r-- | Master/texmf/scripts/texlive/tlmgrgui.pl | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/Master/texmf/scripts/texlive/tlmgrgui.pl b/Master/texmf/scripts/texlive/tlmgrgui.pl index 9899078a302..3319438bd67 100644 --- a/Master/texmf/scripts/texlive/tlmgrgui.pl +++ b/Master/texmf/scripts/texlive/tlmgrgui.pl @@ -1576,6 +1576,7 @@ sub menu_multi_location { }); $ref->{'chg_w'} = $f1->Button(-text => __("Change"), -command => sub { + our $sw; my $ret = ask_one_repository($sw, __("Change " . ($t eq "main" ? "main" : "subsidiary") . " package repository"), __(($t eq "main" ? "Change main" : "New subsidiary") . " package repository")); $ref->{'val'} = $ret if (defined($ret)); |