From eb9686c39803db8d069e6d993c40717da3fa5627 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Fri, 9 Jan 2009 15:58:02 +0000 Subject: fix wrong var git-svn-id: svn://tug.org/texlive/trunk@11836 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/TeXLive/TLPaper.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Master/tlpkg/TeXLive/TLPaper.pm') diff --git a/Master/tlpkg/TeXLive/TLPaper.pm b/Master/tlpkg/TeXLive/TLPaper.pm index 51275b94cb5..cf643e4b863 100644 --- a/Master/tlpkg/TeXLive/TLPaper.pm +++ b/Master/tlpkg/TeXLive/TLPaper.pm @@ -206,7 +206,7 @@ sub paper_xdvi { my $outfile = "$outtree/$outcomp"; my @sizes = keys %xdvi_papersize; - return &paper_do_simple($xdvi, "xdvi", '^\*paper: ', '^\*paper:\s+(\w+)\s*$', + return &paper_do_simple($inp, "xdvi", '^\*paper: ', '^\*paper:\s+(\w+)\s*$', sub { my ($ll,$np) = @_; $ll =~ s/^\*paper:\s+(\w+)\s*$/\*paper: $np\n/; -- cgit v1.2.3