Close the pipe between pzstd and tar

AlexDaniel · AlexDaniel · commit 96ccddccd804 · 2017-05-13T19:57:42.000+03:00
Resolves #136 I would have never expected that this would be needed, but otherwise it leaves some sort of sockets open.
diff --git a/Whateverable.pm6 b/Whateverable.pm6
@@ -172,6 +172,7 @@ method run-smth($full-commit-hash, $code, :$backend=‘rakudo-moar’) {
     }
     my $proc = run :out, :bin, ‘pzstd’, ‘-dqc’, ‘--’, $archive-path;
     run :in($proc.out), :bin, ‘tar’, ‘x’, ‘--absolute-names’;
+    $proc.out.close();
 
     my $return = $code($build-path); # basically, we wrap around $code
 

Original file line number	Diff line number	Diff line change
`@@ -172,6 +172,7 @@ method run-smth($full-commit-hash, $code, :$backend=‘rakudo-moar’) {`
`172`	`172`	`}`
`173`	`173`	`my $proc = run :out, :bin, ‘pzstd’, ‘-dqc’, ‘--’, $archive-path;`
`174`	`174`	`run :in($proc.out), :bin, ‘tar’, ‘x’, ‘--absolute-names’;`
	`175`	`+ $proc.out.close();`
`175`	`176`
`176`	`177`	`my $return = $code($build-path); # basically, we wrap around $code`
`177`	`178`