my @ignore = qw(vserver-packages python-devel-src);
my @poldek;
if (DOCKER) {
- push(@poldek, "poldek");
+ push(@poldek, qw[poldek]);
} else {
push(@poldek, qw[sudo poldek -n th-x86_64-ready],
"--cachedir=$pwd/poldekcache",
sub poldek_cmd
{
my $cmd = shift;
+
warn "Poldek: $cmd\n";
- my $pid = open( READ, "-|", @poldek, "--shcmd=".$cmd );
- my @read = <READ>;
- close READ;
+ my @cmd = (@poldek, "--shcmd=".$cmd);
+ open my $fh, '-|', @cmd or die "$!: @cmd";
+ my @read = <$fh>;
+ close $fh or die $!;
- return @read if wantarray;
- return \@read;
+ return wantarray ? @read : \@read;
}
my $check_ac = 0;