diff options
Diffstat (limited to 'dev-tex/feynmf/files/feynmf-1.08-tempfile.patch')
-rw-r--r-- | dev-tex/feynmf/files/feynmf-1.08-tempfile.patch | 33 |
1 files changed, 0 insertions, 33 deletions
diff --git a/dev-tex/feynmf/files/feynmf-1.08-tempfile.patch b/dev-tex/feynmf/files/feynmf-1.08-tempfile.patch deleted file mode 100644 index 5e3ec840dcc2..000000000000 --- a/dev-tex/feynmf/files/feynmf-1.08-tempfile.patch +++ /dev/null @@ -1,33 +0,0 @@ ---- 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"; - } |