diff bin/align.pm @ 25:e26d3bee9348 draft

Uploaded
author brasset_jensen
date Sun, 13 May 2018 15:55:43 -0400
parents 36e45a7b3eff
children c8090766c3f5
line wrap: on
line diff
--- a/bin/align.pm	Sun May 13 15:53:26 2018 -0400
+++ b/bin/align.pm	Sun May 13 15:55:43 2018 -0400
@@ -303,7 +303,7 @@
         } 
         else 
         { 
-          $number{$line[2]}->[2]++
+          $number{$line[2]}->[2]++;
           $number{$line[2]}->[4]++ if $seq[9] eq 'A';
         } 
     	 	if ($_ =~ /.*XM:i:(\d+).*/)