diff options
| -rwxr-xr-x | Master/texmf-dist/scripts/texlive/tlmgrgui.pl | 13 |
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]; } |