misq updates

[biopieces.git] / code_perl / Maasha / BGB / Track.pm

diff --git a/code_perl/Maasha/BGB/Track.pm b/code_perl/Maasha/BGB/Track.pm
index a21fa4e416b3d090936b57ac9dc24861a7491fc3..f536bbb3a41975c6ad3991a2dbc8d463d676a89d 100644 (file)
--- a/code_perl/Maasha/BGB/Track.pm
+++ b/code_perl/Maasha/BGB/Track.pm
@@ -447,7 +447,7 @@ sub feature_align
     {
         foreach $align ( split /,/, $entry->[ ALIGN ] )
         {
-            if ( $align =~ /(\d+):([ATCGN-])>([ATCGN-])/ )
+            if ( $align =~ /(\d+):([ATCGRYKMSWBDHVN-])>([ATCGRYKMSWBDHVN-])/ )
             {
                 $pos       = $1;
                 $nt_before = $2;