1
#! /bin/sh /usr/share/dpatch/dpatch-run
2
## 52_feynmf-perl-sec-fix.dpatch by Kevin B. McCarty
4
## All lines beginning with `## DP:' are a description of the patch.
5
## DP: secure tmp file handling
8
--- ./texmf-dist/source/latex/feynmf/feynmf.pl.orig
9
+++ ./texmf-dist/source/latex/feynmf/feynmf.pl
12
# Prepare a fake temporary PL file
13
# (/dev/null won't do, because the font must not be empty):
14
- my ($pl) = "/tmp/feynmf$$.pl";
15
+ my ($pl) = `/bin/tempfile -p feynmf -s .pl`;
18
or die "feynmf: fatal: pltopf programm required unless -notfm\n";
20
open (PL, ">$pl") or die "feynmf: can't open temporary file $pl: $!\n";
21
push @temporay_files, $pl;
22
print PL <<__END_PL__;
24
maybe_run "$gftopk_prog $gf" if $gftopk_prog;