texlive[53110] Master/texmf-dist/scripts/context/perl/mptopdf.pl:
commits+karl at tug.org
commits+karl at tug.org
Fri Dec 13 00:16:59 CET 2019
Revision: 53110
http://tug.org/svn/texlive?view=revision&revision=53110
Author: karl
Date: 2019-12-13 00:16:59 +0100 (Fri, 13 Dec 2019)
Log Message:
-----------
back to r22719 so we have suffixed output files
Revision Links:
--------------
http://tug.org/svn/texlive?view=revision&revision=22719
Modified Paths:
--------------
trunk/Master/texmf-dist/scripts/context/perl/mptopdf.pl
Modified: trunk/Master/texmf-dist/scripts/context/perl/mptopdf.pl
===================================================================
--- trunk/Master/texmf-dist/scripts/context/perl/mptopdf.pl 2019-12-12 22:59:47 UTC (rev 53109)
+++ trunk/Master/texmf-dist/scripts/context/perl/mptopdf.pl 2019-12-12 23:16:59 UTC (rev 53110)
@@ -118,14 +118,9 @@
@files = glob "$pattern" ;
}
-# this patch was send via debian but is not tested by me
-
foreach my $file (@files) {
$_ = $file ;
- # if (s/\.(\d+|mps)$// && -e $file) {
- if (s/\.(\d+|mps|ps)$// && -e $file) {
- my $suffix = $1 ;
- my $pdf = basename($_).".pdf" ;
+ if (s/\.(\d+|mps)$// && -e $file) {
if ($miktex) {
$command = "pdftex -undump=mptopdf" ;
} else {
@@ -141,22 +136,15 @@
print "\n$program : error while processing tex file\n" ;
exit 1 ;
}
- # my $pdfsrc = basename($_).".pdf";
- # rename ($pdfsrc, "$_-$1.pdf") ;
- # if (-e $pdfsrc) {
- # CopyFile ($pdfsrc, "$_-$1.pdf") ;
- if ($suffix =~ m/\.\d+$/) {
- rename ($pdf, "$_-$suffix.pdf") ;
- if (-e $pdf) {
- CopyFile ($pdf, "$_-$suffix.pdf") ;
- }
- $pdf = "$_-$suffix.pdf" ;
+ my $pdfsrc = basename($_).".pdf";
+ rename ($pdfsrc, "$_-$1.pdf") ;
+ if (-e $pdfsrc) {
+ CopyFile ($pdfsrc, "$_-$1.pdf") ;
}
if ($done) {
$report .= " +" ;
}
- # $report .= " $_-$1.pdf" ;
- $report .= " $pdf" ;
+ $report .= " $_-$1.pdf" ;
++$done ;
}
}
More information about the tex-live-commits
mailing list