blob: 5e3ec840dcc24c67fc89247b3b1a3ec7339b5905 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
--- 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";
}
|
GitWeb
