diff options
author | Norbert Preining <preining@logic.at> | 2016-04-16 04:37:26 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2016-04-16 04:37:26 +0000 |
commit | 24fa12271f439d371f75c549073443dfe421c45d (patch) | |
tree | 068ef5b348dcbefdfa82faaf5eb731c79673a9bd | |
parent | 4560a98ba073c1d0143d5f3b56803be9f526a616 (diff) |
fix TLPaper wrong replacement strings for pdftex
git-svn-id: svn://tug.org/texlive/trunk@40548 c570f23f-e606-0410-a88d-b1316a301751
-rw-r--r-- | Master/tlpkg/TeXLive/TLPaper.pm | 4 |
1 files 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 { |