diff options
| author | Norbert Preining <preining@logic.at> | 2009-01-09 15:58:02 +0000 |
|---|---|---|
| committer | Norbert Preining <preining@logic.at> | 2009-01-09 15:58:02 +0000 |
| commit | eb9686c39803db8d069e6d993c40717da3fa5627 (patch) | |
| tree | 34513fbe14184cd175ef16113235bcf9affb5106 /Master | |
| parent | 84aed930b00c38d2a01095944d4763336dc5181b (diff) | |
fix wrong var
git-svn-id: svn://tug.org/texlive/trunk@11836 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
| -rw-r--r-- | Master/tlpkg/TeXLive/TLPaper.pm | 2 |
1 files changed, 1 insertions, 1 deletions
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/; |