Fails when command fails

cf90f238 · Javier Herrero · ace7d563 · cf90f238
Commit cf90f238 authored Apr 18, 2008 by Javier Herrero
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

modules/Bio/EnsEMBL/Hive/RunnableDB/SystemCmd.pm modules/Bio/EnsEMBL/Hive/RunnableDB/SystemCmd.pm +1 -1

No files found.
--- a/modules/Bio/EnsEMBL/Hive/RunnableDB/SystemCmd.pm
+++ b/modules/Bio/EnsEMBL/Hive/RunnableDB/SystemCmd.pm
@@ -83,7 +83,7 @@ sub fetch_input {
 sub run
 {
  my $self = shift;
-  system($self->{'cmd'});
+  system($self->{'cmd'}) == 0 or die "system ".$self->{'cmd'}." failed: $?";
  return 1;
 }