From 5be9e1f50b743ad90695cbf745dc255c7026c3e6 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Sat, 29 Nov 2008 00:08:31 +0000 Subject: initialize pdftex_papersize more nicely. git-svn-id: svn://tug.org/texlive/trunk@11465 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/etc/test-code-for-papersize-in-perl.pl | 9 +++++---- 1 file 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"; - +} -- cgit v1.2.3