5 exit 1 unless defined $sf;
9 pipe my $rdr, my $wtr or die "pipe(\$rdr, \$wtr): $!";
14 close $rdr or die "close(\$rdr): $!";
15 open STDERR, '>&', $wtr or die "open(STDERR, '>&', \$wtr): $!";
16 exec $^X, '-Mlib=lib', $file;
18 close $wtr or die "close(\$rdr): $!";
20 my ($supp, $name, $num) = ('', 'perlTestValgrind', 0);
24 next if /valgrind/ and /\Q$file\E/;
25 s/<[^>]+>/$name . ++$num/e;
31 open my $out, '>', $sf or die "$!";