Remove postfix if/for (PBP)

This commit is contained in:
Dan Church 2023-07-20 13:05:12 -05:00
parent 15c466e581
commit 98c2c04263
Signed by: h3xx
GPG key ID: EA2BF379CD2CDBD0
4 changed files with 43 additions and 28 deletions

View file

@ -116,7 +116,9 @@ sub run_script_capture {
print STDERR "+ @cmd\n";
my $pid = open3 $in, '>&CATCHOUT', '>&CATCHERR', @cmd;
waitpid $pid, 0;
seek $_, 0, 0 for \*CATCHOUT, \*CATCHERR;
foreach my $handle (\*CATCHOUT, \*CATCHERR) {
seek $handle, 0, 0;
}
return (
$?,