# HG changeset patch # User brasset_jensen # Date 1526853211 14400 # Node ID 8d8357dee6b344a97a7967ac38108354b0c300ea # Parent c8090766c3f5c48e375282b4b65d69ab8e4ce224 Uploaded diff -r c8090766c3f5 -r 8d8357dee6b3 bin/align.pm --- a/bin/align.pm Sun May 20 17:46:23 2018 -0400 +++ b/bin/align.pm Sun May 20 17:53:31 2018 -0400 @@ -388,7 +388,7 @@ my $R1U = 0; $R1U = $counthashR->{$k}->[6] / $counthashR->{$k}->[2] * 100 if $counthashR->{$k}->[2] != 0; my $S10A = 0; - $SA10 = $counthashR->{$k}->[5] / $counthashR->{$k}->[1] * 100 if $counthashR->{$k}->[1] != 0; + $S10A = $counthashR->{$k}->[5] / $counthashR->{$k}->[1] * 100 if $counthashR->{$k}->[1] != 0; my $R10A = 0; $R10A = $counthashR->{$k}->[4] / $counthashR->{$k}->[2] * 100 if $counthashR->{$k}->[2] != 0;