summaryrefslogtreecommitdiff
path: root/Master/tlpkg/etc
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/etc')
-rw-r--r--Master/tlpkg/etc/test-code-for-papersize-in-perl.pl9
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";
-
+}