Skip to content
Browse files

added $log->error flag set if an error is found

  • Loading branch information...
1 parent c12d6bf commit 80a156940e921e0d8b782cc2b422a56f78afcb55 gw3 committed
Showing with 3 additions and 2 deletions.
  1. +3 −2 scripts/check_predicted_genes.pl
View
5 scripts/check_predicted_genes.pl
@@ -4,8 +4,8 @@
#
# by Keith Bradnam
#
-# Last updated on: $Date: 2012-05-01 10:00:52 $
-# Last updated by: $Author: pad $
+# Last updated on: $Date: 2012-05-01 10:04:30 $
+# Last updated by: $Author: gw3 $
#
# see pod documentation at end of file for more information about this script
@@ -100,6 +100,7 @@
foreach my $list (@error_list) {
foreach my $error (@{$list}) {
$count_errors++;
+ $log->error;
$log->write_to("$count_errors $error");
last if $count_errors > 190;
}

0 comments on commit 80a1569

Please sign in to comment.
Something went wrong with that request. Please try again.