Message-ID: <Pine.OSF.4.10.
10105071746570.317708-100000@aspara.forte.com>
p4raw-id: //depot/perl@10028
my $command = qq{$runperl "ff-prog" "$f" "rl"};
open OUT, "> $f" or die "open $f: $!";
print OUT "Pe";
+ close OUT;
print "# $command\n";
$code->($command);
- close OUT;
print file_eq($f, "Perl") ? "ok $t\n" : "not ok $t\n";
push @delete, $f;
++$t;