adding bzip2 support in ruby

[biopieces.git] / code_perl / Maasha / Seq.pm

diff --git a/code_perl/Maasha/Seq.pm b/code_perl/Maasha/Seq.pm
index 2c64f15793176abdb141f57ab93f6654af7da7eb..4d6c7997665eb2ff19d4e2e44b6c035de841dbd4 100644 (file)
--- a/code_perl/Maasha/Seq.pm
+++ b/code_perl/Maasha/Seq.pm
@@ -924,15 +924,15 @@ sub seq_alph
     my ( %alph_hash, $alph );
 
     %alph_hash = (
-        DNA      => [ qw( A T C G ) ],
-        DNA_AMBI => [ qw( A G C U T R Y W S M K H D V B N ) ],
-        RNA      => [ qw( A U C G ) ],
-        RNA_AMBI => [ qw( A G C U T R Y W S M K H D V B N ) ],
-        PROTEIN  => [ qw( F L S Y C W P H Q R I M T N K V A D E G ) ],
+        DNA      => [ qw(A T C G) ],
+        DNA_AMBI => [ qw(A G C U T R Y W S M K H D V B N) ],
+        RNA      => [ qw(A U C G) ],
+        RNA_AMBI => [ qw(A G C U T R Y W S M K H D V B N) ],
+        PROTEIN  => [ qw(F L S Y C W P H Q R I M T N K V A D E G) ],
     );
 
-    if ( exists $alph_hash{ $type } ) {
-        $alph = $alph_hash{ $type };
+    if ( exists $alph_hash{ uc $type } ) {
+        $alph = $alph_hash{ uc $type };
     } else {
         die qq(ERROR: Unknown alphabet type: "$type"\n);
     }