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