Gentoo Websites Logo
Go to: Gentoo Home Documentation Forums Lists Bugs Planet Store Wiki Get Gentoo!
View | Details | Raw Unified | Return to bug 198231 | Differences between
and this patch

Collapse All | Expand All

(-)feynmf-orig/feynmf.pl (-4 / +5 lines)
Lines 119-124 Link Here
119
require 5.000;
119
require 5.000;
120
# use strict;
120
# use strict;
121
use File::Find;
121
use File::Find;
122
use File::Temp qw(tempfile);
122
use Getopt::Long;
123
use Getopt::Long;
123
124
124
########################################################################
125
########################################################################
Lines 270-287 Link Here
270
    my @tfm = @_;
271
    my @tfm = @_;
271
    # Prepare a fake temporary PL file
272
    # Prepare a fake temporary PL file
272
    # (/dev/null won't do, because the font must not be empty):
273
    # (/dev/null won't do, because the font must not be empty):
273
    my ($pl) = "/tmp/feynmf$$.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
    open (PL, ">$pl") or die "feynmf: can't open temporary file $pl: $!\n";
277
    my ($PL, $pl) = tempfile("/tmp/feynmfXXXXXX", SUFFIX => ".pl");
278
    $PL or die "feynmf: can't open temporary file: $!\n";
278
    push @temporay_files, $pl;
279
    push @temporay_files, $pl;
279
    print PL <<__END_PL__;
280
    print $PL <<__END_PL__;
280
      (FAMILY FEYNMF)
281
      (FAMILY FEYNMF)
281
      (DESIGNSIZE R 10.0)
282
      (DESIGNSIZE R 10.0)
282
      (CHARACTER D 1 (CHARWD R 10.0) (CHARHT R 10.0))
283
      (CHARACTER D 1 (CHARWD R 10.0) (CHARHT R 10.0))
283
__END_PL__
284
__END_PL__
284
    close (PL);
285
    close ($PL);
285
    foreach $tfm (@tfm) {
286
    foreach $tfm (@tfm) {
286
	maybe_run "$pltotf_prog $pl $tfm.tfm" unless -r "$tfm.tfm";
287
	maybe_run "$pltotf_prog $pl $tfm.tfm" unless -r "$tfm.tfm";
287
    }
288
    }

Return to bug 198231