+ if ( $? ) {
+ $problems .= sprintf "%s:\nexited with code %d (0x%02x)\n\n",
+ $cmd_joined,
+ $? >> 8,
+ $? & 0xff;
+ }
+ if (-f $local && -s $local == 0 && $url =~ /^ftp:/) {
+ $out = "";
+ my $pid = open(W, "-|");
+ fatal("Cannot fork $!") unless defined $pid;
+ unless ( $pid ) {
+ open STDERR, ">&", \*STDOUT or fatal("$0: open: $!");
+ exec { $cmd2[0] } @cmd2 or fatal("$0: exec: $!");
+ }
+ while (<W>) {
+ $all_out .= "\n\t\t$_";
+ /URL:.*\s+\-\>\s+.*/ and next;
+ $out .= $_;
+ }
+ close(W);
+ if ($out ne "") {
+ $problems .= "$cmd2_joined:\n$out\n\n";
+ }
+ if ( $? ) {
+ $problems .= sprintf "%s:\nexited with code %d (0x%02x)\n\n",
+ $cmd2_joined,
+ $? >> 8,
+ $? & 0xff;
+ }
+ }
+ if (-r $local && -s $local > 0) {