initialize pdftex_papersize more nicely.

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

1 files changed, 5 insertions, 4 deletions

diff --git a/Master/tlpkg/etc/test-code-for-papersize-in-perl.pl b/Master/tlpkg/etc/test-code-for-papersize-in-perl.pl
index 1754614cf12..8f59bfb7682 100644
--- a/Master/tlpkg/etc/test-code-for-papersize-in-perl.pl
+++ b/Master/tlpkg/etc/test-code-for-papersize-in-perl.pl
@@ -3,9 +3,10 @@ $^W = 1;
 use strict;
 
 
-my %pdftex_papersize;
-$pdftex_papersize{"letter"} = [ '8.5 true in', '11 true in' ];
-$pdftex_papersize{"a4"} = [  '210 true mm', '297 true mm' ];
+my %pdftex_papersize = (
+  "letter" => [ '8.5 true in', '11 true in' ],
+  "a4" => [ '210 true mm', '297 true mm' ],
+);
 
 my %xdvi_papersize;
 $xdvi_papersize{'us'}='8.5x11';
@@ -124,7 +125,7 @@ sub do_xdvi {
   chomp($hit);
 
   print "current xdvi paper size: $hit\n";
-
+}