mptopdf.pl --raw warning

[Hartmut Henkel <hartmut_henkel@gmx.de>]

There is a warning due to a wrong option given by mptopdf.pl:

hahe@hahepc1:~$ mptopdf --raw x.mp
mpost: unrecognized option `--format=latex'

This goes away by the tiny patch below.

Regards, Hartmut


--- mptopdf.pl.orig.texlive	Sun Aug 29 16:59:39 2004
+++ mptopdf.pl	Sun Aug 29 17:06:17 2004
@@ -39,7 +39,8 @@
 my $pattern = $ARGV[0] ;
 my $done    = 0 ;
 my $report  = '' ;
-my $latexswitch = " --tex=latex --format=latex " ;
+my $texlatexswitch = " --tex=latex --format=latex " ;
+my $mplatexswitch = " --tex=latex " ;

 ## $dosish = ($Config{'osname'} =~ /dos|mswin/i) ;
 my $dosish = ($Config{'osname'} =~ /^(ms)?dos|^os\/2|^(ms|cyg)win/i) ;
@@ -67,12 +68,14 @@
           { if (/(documentstyle|documentclass|begin\{document\})/io)
               { $Latex = 1 ; last } }
         close (INP) }
-    if ($Latex)
-      { $rest .= " $latexswitch" }
     if ($RawMP)
-      { $mpbin = 'mpost' }
+      { if ($Latex)
+          { $rest .= " $mplatexswitch" }
+        $mpbin = 'mpost' }
     else
-      { $mpbin = 'texexec --mptex $PassOn' }
+      { if ($Latex)
+          { $rest .= " $texlatexswitch" }
+        $mpbin = 'texexec --mptex $PassOn' }
     my $error =  system ("$mpbin $rest $pattern") ;
     if ($error)
       { print "\n$program : error while processing mp file\n" ; exit }