summaryrefslogtreecommitdiff
path: root/Master/texmf-dist
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2016-04-23 13:36:44 +0000
committerNorbert Preining <preining@logic.at>2016-04-23 13:36:44 +0000
commit5b67b6be319910126e12745ffbb06a2c1d5f573a (patch)
tree417a4175dd7e2a7815f5643e058afaf309964ee4 /Master/texmf-dist
parentb498bd7d890babe060e8abe178fc5535acca4066 (diff)
tlmgr gui: fix paper usage
git-svn-id: svn://tug.org/texlive/trunk@40702 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist')
-rwxr-xr-xMaster/texmf-dist/scripts/texlive/tlmgrgui.pl13
1 files changed, 7 insertions, 6 deletions
diff --git a/Master/texmf-dist/scripts/texlive/tlmgrgui.pl b/Master/texmf-dist/scripts/texlive/tlmgrgui.pl
index 436b4008e61..51936a78d54 100755
--- a/Master/texmf-dist/scripts/texlive/tlmgrgui.pl
+++ b/Master/texmf-dist/scripts/texlive/tlmgrgui.pl
@@ -1282,30 +1282,31 @@ sub apply_settings_changes {
sub init_paper_xdvi {
if (!win32()) {
$papers{"xdvi"} = TeXLive::TLPaper::get_paper_list("xdvi");
- $currentpaper{"xdvi"} = ${$papers{"xdvi"}}[0];
+ $currentpaper{"xdvi"} = $papers{"xdvi"}->[0];
}
}
sub init_paper_pdftex {
$papers{"pdftex"} = TeXLive::TLPaper::get_paper_list("pdftex");
- $currentpaper{"pdftex"} = ${$papers{"pdftex"}}[0];
+ $currentpaper{"pdftex"} = $papers{"pdftex"}->[0];
}
sub init_paper_dvips {
$papers{"dvips"} = TeXLive::TLPaper::get_paper_list("dvips");
- $currentpaper{"dvips"} = ${$papers{"dvips"}}[0];
+ $currentpaper{"dvips"} = $papers{"dvips"}->[0];
}
sub init_paper_context {
if (defined($localtlpdb->get_package("bin-context"))) {
$papers{"context"} = TeXLive::TLPaper::get_paper_list("context");
- $currentpaper{"context"} = ${$papers{"context"}}[0];
+ $currentpaper{"context"} = $papers{"context"}->[0];
}
}
sub init_paper_dvipdfmx {
$papers{"dvipdfmx"} = TeXLive::TLPaper::get_paper_list("dvipdfmx");
- $currentpaper{"dvipdfmx"} = ${$papers{"dvipdfmx"}}[0];
+ $currentpaper{"dvipdfmx"} = $papers{"dvipdfmx"}->[0];
}
+
sub init_paper_psutils {
$papers{"psutils"} = TeXLive::TLPaper::get_paper_list("psutils");
- $currentpaper{"psutils"} = ${$papers{"psutils"}}[0];
+ $currentpaper{"psutils"} = $papers{"psutils"}->[0];
}