texlive[43117] trunk: pdflatexpicscale (1feb17)

[commits+karl at tug.org]

Revision: 43117
          http://tug.org/svn/texlive?view=revision&revision=43117
Author:   karl
Date:     2017-02-01 23:25:24 +0100 (Wed, 01 Feb 2017)
Log Message:
-----------
pdflatexpicscale (1feb17)

Modified Paths:
--------------
    trunk/Build/source/texk/texlive/linked_scripts/pdflatexpicscale/pdflatexpicscale.pl
    trunk/Master/texmf-dist/doc/support/pdflatexpicscale/README
    trunk/Master/texmf-dist/doc/support/pdflatexpicscale/pdflatexpicscale.pdf
    trunk/Master/texmf-dist/doc/support/pdflatexpicscale/pdflatexpicscale.tex
    trunk/Master/texmf-dist/doc/support/pdflatexpicscale/testprinter.ps
    trunk/Master/texmf-dist/scripts/pdflatexpicscale/pdflatexpicscale.pl

Modified: trunk/Build/source/texk/texlive/linked_scripts/pdflatexpicscale/pdflatexpicscale.pl
===================================================================
--- trunk/Build/source/texk/texlive/linked_scripts/pdflatexpicscale/pdflatexpicscale.pl	2017-02-01 22:25:09 UTC (rev 43116)
+++ trunk/Build/source/texk/texlive/linked_scripts/pdflatexpicscale/pdflatexpicscale.pl	2017-02-01 22:25:24 UTC (rev 43117)
@@ -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::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 @@
     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 @@
     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>;
 	    }

Modified: trunk/Master/texmf-dist/doc/support/pdflatexpicscale/README
===================================================================
--- trunk/Master/texmf-dist/doc/support/pdflatexpicscale/README	2017-02-01 22:25:09 UTC (rev 43116)
+++ trunk/Master/texmf-dist/doc/support/pdflatexpicscale/README	2017-02-01 22:25:24 UTC (rev 43117)
@@ -3,7 +3,7 @@
 with PdfLaTeX.
 
 *Version*
-2017-01-23
+2017-02-01 (version of bundle)
 For version details check pdflatexpicscale.pdf.
 
 *Requirements*

Modified: trunk/Master/texmf-dist/doc/support/pdflatexpicscale/pdflatexpicscale.pdf
===================================================================
(Binary files differ)

Modified: trunk/Master/texmf-dist/doc/support/pdflatexpicscale/pdflatexpicscale.tex
===================================================================
--- trunk/Master/texmf-dist/doc/support/pdflatexpicscale/pdflatexpicscale.tex	2017-02-01 22:25:09 UTC (rev 43116)
+++ trunk/Master/texmf-dist/doc/support/pdflatexpicscale/pdflatexpicscale.tex	2017-02-01 22:25:24 UTC (rev 43117)
@@ -5,7 +5,7 @@
 \usepackage{url}
 \title{pdflatexpicscale}
 \author{Peter Willadt\footnote{willadt at t-online.de}}
-\date{2017-01-23} %version #version
+\date{2017-02-01} %version #version
 \begin{document}
 \maketitle
 
@@ -253,7 +253,7 @@
 changed the \verb|\graphicspath| and are too lazy to change it again. The
 default is empty.
 
-\paragraph{printdpi} followed by a numer lets you change the range in which
+\paragraph{printdpi} followed by a number lets you change the range in which
 pictures remain unscaled because they are near the target resolution. Default
 is 20, that means 20~percent. If target resolution is 300~dpi, files up to
 320~dpi get accepted too. Change to 0 if you want no tolerance.
@@ -327,5 +327,8 @@
 the beginning of section~\ref{bugs}. Thanks a lot to the always quick action
 and helpful and polite hints.
 
+\paragraph{2017-02-01} With very long pathnames in the log file,
+pdflatexpicscale did not find pictures. This is fixed, hopefully.
+
 % for file version please see line 8
 \end{document}

Modified: trunk/Master/texmf-dist/doc/support/pdflatexpicscale/testprinter.ps
===================================================================
(Binary files differ)

Modified: trunk/Master/texmf-dist/scripts/pdflatexpicscale/pdflatexpicscale.pl
===================================================================
--- trunk/Master/texmf-dist/scripts/pdflatexpicscale/pdflatexpicscale.pl	2017-02-01 22:25:09 UTC (rev 43116)
+++ trunk/Master/texmf-dist/scripts/pdflatexpicscale/pdflatexpicscale.pl	2017-02-01 22:25:24 UTC (rev 43117)
@@ -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::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 @@
     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 @@
     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>;
 	    }