Revision 940c28c1d3fd347f04d1d9c6582ef02d0394dbdc authored by Cyriac Kandoth on 08 November 2012, 19:45:46 UTC, committed by Cyriac Kandoth on 08 November 2012, 19:45:46 UTC
1 parent 8acb73b
filter_bqm_for_errors
#!/usr/bin/env genome-perl
use strict;
use warnings;
my $found_error = 0;
my @stdin;
while (my $stdin = <>) {
push @stdin, $stdin;
$found_error = 1 if ($stdin =~ /ERROR:/);
}
$found_error = 1 if ($stdin[-1] !~ /^COMMITTED$/);
if ($found_error) {
print @stdin;
}
Computing file changes ...