summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/scripts/pdflatexpicscale/pdflatexpicscale.pl
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2017-02-01 22:25:24 +0000
committerKarl Berry <karl@freefriends.org>2017-02-01 22:25:24 +0000
commit01d4d5d4e1b0a8238f9b5d568f331b2c1929f812 (patch)
tree695c12975a0e6f37cf71bd311f0a3605346991b2 /Master/texmf-dist/scripts/pdflatexpicscale/pdflatexpicscale.pl
parent25934fa9f8e93c1c1ebe88348090b7b1dc936ede (diff)
pdflatexpicscale (1feb17)
git-svn-id: svn://tug.org/texlive/trunk@43117 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/scripts/pdflatexpicscale/pdflatexpicscale.pl')
-rwxr-xr-xMaster/texmf-dist/scripts/pdflatexpicscale/pdflatexpicscale.pl12
1 files changed, 7 insertions, 5 deletions
diff --git a/Master/texmf-dist/scripts/pdflatexpicscale/pdflatexpicscale.pl b/Master/texmf-dist/scripts/pdflatexpicscale/pdflatexpicscale.pl
index 9062e68b233..7c2de25cb7a 100755
--- a/Master/texmf-dist/scripts/pdflatexpicscale/pdflatexpicscale.pl
+++ b/Master/texmf-dist/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>;
}