From 24fa12271f439d371f75c549073443dfe421c45d Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Sat, 16 Apr 2016 04:37:26 +0000 Subject: fix TLPaper wrong replacement strings for pdftex git-svn-id: svn://tug.org/texlive/trunk@40548 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/TeXLive/TLPaper.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Master/tlpkg/TeXLive/TLPaper.pm b/Master/tlpkg/TeXLive/TLPaper.pm index b721566ff2f..e4e92e74cfd 100644 --- a/Master/tlpkg/TeXLive/TLPaper.pm +++ b/Master/tlpkg/TeXLive/TLPaper.pm @@ -393,7 +393,7 @@ sub paper_pdftex { for my $idx (@cpwidx) { ddebug("TLPaper: before line: $lines[$idx]"); ddebug("TLPaper: replacement: $newwidth\n"); - $lines[$idx] =~ s/^\s*\\pdfpagewidth\s*=\s*[0-9.,]+\s*true\s*[^\s]*/pagewidth = $newwidth/; + $lines[$idx] =~ s/^\s*\\pdfpagewidth\s*=\s*[0-9.,]+\s*true\s*[^\s]*/\\pdfpagewidth = $newwidth/; ddebug("TLPaper: after line : $lines[$idx]"); } } else { @@ -408,7 +408,7 @@ sub paper_pdftex { for my $idx (@cphidx) { ddebug("TLPaper: before line: $lines[$idx]"); ddebug("TLPaper: replacement: $newheight\n"); - $lines[$idx] =~ s/^\s*\\pdfpageheight\s*=\s*[0-9.,]+\s*true\s*[^\s]*/pageheight = $newheight/; + $lines[$idx] =~ s/^\s*\\pdfpageheight\s*=\s*[0-9.,]+\s*true\s*[^\s]*/\\pdfpageheight = $newheight/; ddebug("TLPaper: after line : $lines[$idx]"); } } else { -- cgit v1.2.3