close OUT;
EOF
;
-close PROG;
+close PROG or die "close ff-prog: $!";;
push @delete, "ff-prog";
$| = 0; # we want buffered output
my $command = qq{$runperl "ff-prog" "$f" "rl"};
open OUT, "> $f" or die "open $f: $!";
print OUT "Pe";
+ close OUT or die "close $f: $!";;
print "# $command\n";
$code->($command);
- close OUT;
print file_eq($f, "Perl") ? "ok $t\n" : "not ok $t\n";
push @delete, $f;
++$t;