[patch] feynmf-1.08-tempfile.patch

feynmf-1.08-tempfile.patch (text/plain), 1.11 KB, created by Ulrich Müller on 2007-11-06 09:18:30 UTC

--- feynmf-orig/feynmf.pl	2007-11-06 08:32:37.000000000 +0100
+++ feynmf/feynmf.pl	2007-11-06 09:33:04.000000000 +0100
@@ -119,6 +119,7 @@
 require 5.000;
 # use strict;
 use File::Find;
+use File::Temp qw(tempfile);
 use Getopt::Long;
 
 ########################################################################
@@ -270,18 +271,18 @@
     my @tfm = @_;
     # Prepare a fake temporary PL file
     # (/dev/null won't do, because the font must not be empty):
-    my ($pl) = "/tmp/feynmf$$.pl";
     my ($tfm);
     $pltotf_prog
 	or die "feynmf: fatal: pltopf programm required unless -notfm\n";
-    open (PL, ">$pl") or die "feynmf: can't open temporary file $pl: $!\n";
+    my ($PL, $pl) = tempfile("/tmp/feynmfXXXXXX", SUFFIX => ".pl");
+    $PL or die "feynmf: can't open temporary file: $!\n";
     push @temporay_files, $pl;
-    print PL <<__END_PL__;
+    print $PL <<__END_PL__;
       (FAMILY FEYNMF)
       (DESIGNSIZE R 10.0)
       (CHARACTER D 1 (CHARWD R 10.0) (CHARHT R 10.0))
 __END_PL__
-    close (PL);
+    close ($PL);
     foreach $tfm (@tfm) {
 	maybe_run "$pltotf_prog $pl $tfm.tfm" unless -r "$tfm.tfm";
     }