- open($command_fh,'|-',
- "get_${database}_results",
- );
- print {$command_fh} "$keyword\n";
- close($command_fh);
- if ($? != 0) {
- WARN("get_${database}_results with keyword $keyword failed with error code ".($?>>8));
+ eval {
+ open($command_fh,'|-',
+ "$base_dir/get_${database}_results",
+ ) or die "unable to execute '$base_dir/get_${database}_results'";
+ print {$command_fh} "$keyword\n" or die "unable to print $keyword to 'get_${database}_results'";
+ close($command_fh) or die "Unable to close filehandle";
+ if ($? != 0) {
+ die "get_${database}_results with keyword $keyword failed with error code ".($?>>8);
+ }
+ };
+ if ($@) {
+ WARN($@);
+ push @{$failed_keywords}, $keyword;