| Previous changeset 23:6669c4f79cac (2018-05-13) Next changeset 25:e26d3bee9348 (2018-05-13) |
|
Commit message:
Uploaded |
|
modified:
bin/align.pm |
| b |
| diff -r 6669c4f79cac -r 36e45a7b3eff bin/align.pm --- a/bin/align.pm Sun May 13 15:46:36 2018 -0400 +++ b/bin/align.pm Sun May 13 15:53:26 2018 -0400 |
| [ |
| @@ -303,7 +303,8 @@ } else { - $number{$line[2]}->[2]++ if $seq[9] eq 'A'; + $number{$line[2]}->[2]++ + $number{$line[2]}->[4]++ if $seq[9] eq 'A'; } if ($_ =~ /.*XM:i:(\d+).*/) { |