summaryrefslogtreecommitdiff
path: root/Master/tlpkg/etc
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2008-11-29 00:08:31 +0000
committerKarl Berry <karl@freefriends.org>2008-11-29 00:08:31 +0000
commit5be9e1f50b743ad90695cbf745dc255c7026c3e6 (patch)
tree7d88962e34c115adca3fa38ad41463fe890a5a3d /Master/tlpkg/etc
parent0d6edd831ee415ea5f72d3c69147a6831bb12146 (diff)
initialize pdftex_papersize more nicely.
git-svn-id: svn://tug.org/texlive/trunk@11465 c570f23f-e606-0410-a88d-b1316a301751
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";
-
+}