|
Line
Link Here
|
| 0 |
-- ./texmf-dist/source/latex/feynmf/feynmf.pl.orig |
0 |
++ ./texmf-dist/source/latex/feynmf/feynmf.pl |
|
Lines 270-279
Link Here
|
| 270 |
my @tfm = @_; |
270 |
my @tfm = @_; |
| 271 |
# Prepare a fake temporary PL file |
271 |
# Prepare a fake temporary PL file |
| 272 |
# (/dev/null won't do, because the font must not be empty): |
272 |
# (/dev/null won't do, because the font must not be empty): |
| 273 |
my ($pl) = "/tmp/feynmf$$.pl"; |
273 |
my ($pl) = `/bin/tempfile -p feynmf -s .pl`; |
| 274 |
my ($tfm); |
274 |
my ($tfm); |
| 275 |
$pltotf_prog |
275 |
$pltotf_prog |
| 276 |
or die "feynmf: fatal: pltopf programm required unless -notfm\n"; |
276 |
or die "feynmf: fatal: pltopf programm required unless -notfm\n"; |
|
|
277 |
chop ($pl); |
| 277 |
open (PL, ">$pl") or die "feynmf: can't open temporary file $pl: $!\n"; |
278 |
open (PL, ">$pl") or die "feynmf: can't open temporary file $pl: $!\n"; |
| 278 |
push @temporay_files, $pl; |
279 |
push @temporay_files, $pl; |
| 279 |
print PL <<__END_PL__; |
280 |
print PL <<__END_PL__; |
|
Lines 373-379
Link Here
|
| 373 |
maybe_run "$gftopk_prog $gf" if $gftopk_prog; |
374 |
maybe_run "$gftopk_prog $gf" if $gftopk_prog; |
| 374 |
} |
375 |
} |
| 375 |
} |
376 |
} |
| 376 |
close (<LOG>); |
377 |
close (LOG); |
| 377 |
} |
378 |
} |
| 378 |
} |
379 |
} |
| 379 |
} |
380 |
} |
