Changeset 6269 for branches/clusters/PERL_SCRIPTS/SPECIES/tools.pm

Timestamp:

23/11/09 08:54:41 (3 years ago)

Author:

westram

Message:

• merged 6262-6267

Files:

• branches/clusters/PERL_SCRIPTS/SPECIES/tools.pm (modified) (1 diff)

branches/clusters/PERL_SCRIPTS/SPECIES/tools.pm

@@ -37 +37 @@
 sub expectError($) {
   my ($where) = @_;
-  my $err = ARB::get_error();
+  my $err = ARB::await_error();
 
-  if (not $err) { $err = "Unknown error"; }
   dieOnError($err,$where);
 }