diff options
Diffstat (limited to 'dev-tex/feynmf/files')
-rw-r--r-- | dev-tex/feynmf/files/feynmf-1.08-tempfile.patch | 33 | ||||
-rw-r--r-- | dev-tex/feynmf/files/feynmf-1.08.patch | 12 |
2 files changed, 45 insertions, 0 deletions
diff --git a/dev-tex/feynmf/files/feynmf-1.08-tempfile.patch b/dev-tex/feynmf/files/feynmf-1.08-tempfile.patch new file mode 100644 index 000000000000..5e3ec840dcc2 --- /dev/null +++ b/dev-tex/feynmf/files/feynmf-1.08-tempfile.patch @@ -0,0 +1,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"; + } diff --git a/dev-tex/feynmf/files/feynmf-1.08.patch b/dev-tex/feynmf/files/feynmf-1.08.patch new file mode 100644 index 000000000000..9695d26c26a1 --- /dev/null +++ b/dev-tex/feynmf/files/feynmf-1.08.patch @@ -0,0 +1,12 @@ +diff -Nur feynmf-orig/feynmf.pl feynmf/feynmf.pl +--- feynmf-orig/feynmf.pl 1996-12-02 01:00:00.000000000 +0100 ++++ feynmf/feynmf.pl 2004-09-02 23:25:40.603910119 +0200 +@@ -373,7 +373,7 @@ + maybe_run "$gftopk_prog $gf" if $gftopk_prog; + } + } +- close (<LOG>); ++ close (LOG); + } + } + } |