my @finished;
sub verbose {
- $verbose and map({ print(STDERR $_) } @_);
+ $verbose and print(STDERR $_) for @_;
}
# Return the ARTIST, ALBUM, and DATE followed by a list of all the
my $pid;
$pid = fork();
- if ($pid == -1) {
+ if (not defined($pid)) {
die("fork: $!");
} elsif ($pid == 0) {
$SIG{CHLD} = 'IGNORE';