[subversion-commit] SVN tetex commit + diffs: r468 - in tetex-base/trunk/debian: . patches

[Frank Küster]

Author: frank
Date: 2006-01-18 16:33:30 +0000 (Wed, 18 Jan 2006)
New Revision: 468

Added:
   tetex-base/trunk/debian/patches/patch-context
Modified:
   tetex-base/trunk/debian/changelog
   tetex-base/trunk/debian/patches/series
Log:
* Apply patch for mptopdf by Sanjoy Mahajan <sanjoy at mrao.cam.ac.uk>,
  approved by ConTeXt's upstream (closes: #347992)


Modified: tetex-base/trunk/debian/changelog
===================================================================
--- tetex-base/trunk/debian/changelog	2006-01-18 10:47:40 UTC (rev 467)
+++ tetex-base/trunk/debian/changelog	2006-01-18 16:33:30 UTC (rev 468)
@@ -1,3 +1,10 @@
+tetex-base (3.0-13.1) UNRELEASED; urgency=low
+
+  * Apply patch for mptopdf by Sanjoy Mahajan <sanjoy at mrao.cam.ac.uk>,
+    approved by ConTeXt's upstream (closes: #347992)
+
+ -- Frank Küster <frank at debian.org>  Wed, 18 Jan 2006 17:33:25 +0100
+
 tetex-base (3.0-13) unstable; urgency=low
 
   * The "Mind your docs" release

Added: tetex-base/trunk/debian/patches/patch-context
===================================================================
--- tetex-base/trunk/debian/patches/patch-context	2006-01-18 10:47:40 UTC (rev 467)
+++ tetex-base/trunk/debian/patches/patch-context	2006-01-18 16:33:30 UTC (rev 468)
@@ -0,0 +1,24 @@
+Index: tetex-base-3.0/scripts/context/perl/mptopdf.pl
+===================================================================
+--- tetex-base-3.0.orig/scripts/context/perl/mptopdf.pl	2005-07-20 14:49:32.000000000 +0200
++++ tetex-base-3.0/scripts/context/perl/mptopdf.pl	2006-01-18 17:18:05.906543968 +0100
+@@ -22,6 +22,7 @@
+ use Config ;
+ use Getopt::Long ;
+ use strict ;
++use File::Basename;
+ 
+ $Getopt::Long::passthrough = 1 ; # no error message
+ $Getopt::Long::autoabbrev  = 1 ; # partial switch accepted
+@@ -106,8 +107,9 @@
+           { system ("$command   \\relax $file") }
+         else
+           { system ("$command \\\\relax $file") }
+-        rename ("$_.pdf", "$_-$1.pdf") ;
+-        if (-e "$_.pdf") { CopyFile ("$_.pdf", "$_-$1.pdf") }
++        my $pdfsrc = basename($_).".pdf";
++        rename ($pdfsrc, "$_-$1.pdf") ;
++        if (-e $pdfsrc) { CopyFile ($pdfsrc, "$_-$1.pdf") }
+         if ($done) { $report .= " +" }
+         $report .= " $_-$1.pdf" ;
+         ++$done } }

Modified: tetex-base/trunk/debian/patches/series
===================================================================
--- tetex-base/trunk/debian/patches/series	2006-01-18 10:47:40 UTC (rev 467)
+++ tetex-base/trunk/debian/patches/series	2006-01-18 16:33:30 UTC (rev 468)
@@ -1,3 +1,4 @@
+patch-context
 patch-licenseinfo 
 patch-texdocphp 
 patch-doc