diff options
author | Karl Berry <karl@freefriends.org> | 2017-02-01 22:25:24 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2017-02-01 22:25:24 +0000 |
commit | 01d4d5d4e1b0a8238f9b5d568f331b2c1929f812 (patch) | |
tree | 695c12975a0e6f37cf71bd311f0a3605346991b2 /Build | |
parent | 25934fa9f8e93c1c1ebe88348090b7b1dc936ede (diff) |
pdflatexpicscale (1feb17)
git-svn-id: svn://tug.org/texlive/trunk@43117 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build')
-rwxr-xr-x | Build/source/texk/texlive/linked_scripts/pdflatexpicscale/pdflatexpicscale.pl | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/Build/source/texk/texlive/linked_scripts/pdflatexpicscale/pdflatexpicscale.pl b/Build/source/texk/texlive/linked_scripts/pdflatexpicscale/pdflatexpicscale.pl index 9062e68b233..7c2de25cb7a 100755 --- a/Build/source/texk/texlive/linked_scripts/pdflatexpicscale/pdflatexpicscale.pl +++ b/Build/source/texk/texlive/linked_scripts/pdflatexpicscale/pdflatexpicscale.pl @@ -14,6 +14,8 @@ # and corrected version number # Please note: version numbers will be updated to keep sync # with the documentation, even when the perl code does not change. +# 2017-02-01 pdflatexpicscale did not work correct when log lines were +# wrapped twice. This is fixed. # use strict; use File::Basename; @@ -21,8 +23,8 @@ use File::Spec; use File::Copy; use Getopt::Long; -my $version = '0.3'; -my $versiondate = '2017-01-23'; #version %version +my $version = '0.31'; +my $versiondate = '2017-02-01'; #version %version my $showversion; my $verbose; @@ -77,7 +79,7 @@ sub handleImage my @dstdirs; my @convertargs; my $idstring; - + print "$filename\n"; $dstdirs[0] = '.'; $dstdirs[1] = $printfolderprefix; $dstfilename = File::Spec->catfile(@dstdirs, basename($filename)); @@ -175,11 +177,11 @@ sub readlog while (<LOGFILE>){ if (/^Package pdftex\.def\sInfo\:\s/){ $buffer = $_; - unless (/\sused/){ + unless ($buffer =~ /\sused/){ chomp $buffer; $buffer .= <LOGFILE>; } # twice ought to be enough - unless (/\sused/){ + unless ($buffer =~ /\sused/){ chomp $buffer; $buffer .= <LOGFILE>; } |