# HG changeset patch
# User brasset_jensen
# Date 1526241206 14400
# Node ID 36e45a7b3eff348f32f057d2a2b8670c5e247aed
# Parent  6669c4f79cac676e8a779903f1a6f51734d0b980
Uploaded

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+).*/)
     	 	{