tlmgr gui: fix paper usage

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

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];
 }