Changeset 234
- Timestamp:
- 07/14/09 12:05:38 (4 months ago)
- Files:
-
- bin/maker2zff.pl (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
bin/maker2zff.pl
r233 r234 137 137 my @qual = (@q[1..5],$q[8]); 138 138 my $hc = 1; 139 foreach my $i (0.. 5) {140 if ($qual[$i] < =$thresh[$i]) {139 foreach my $i (0..4) { 140 if ($qual[$i] < $thresh[$i]) { 141 141 $hc = 0; 142 142 }
