use File::Path qw(mkpath rmtree);
use B qw(perlstring);
-our $VERSION = '0.009016'; # 0.009.016
+our $VERSION = '0.009017'; # 0.009.017
$VERSION = eval $VERSION;
return;
} else {
# no output target specified, slurp
- open my $out_fh, '-|', $^X, @args;
+ open my $out_fh, "$^X @args |";
return do { local $/; <$out_fh> };
}
}