fixed bug in Seq.pm

git-svn-id: http://biopieces.googlecode.com/svn/trunk@886 74ccb610-7750-0410-82ae-013aeee3265d

diff --git a/code_perl/Maasha/Seq.pm b/code_perl/Maasha/Seq.pm
index 2c64f15793176abdb141f57ab93f6654af7da7eb..bc07bcecb5512c5a511d222f29d8e4116c66a868 100644 (file)
--- a/code_perl/Maasha/Seq.pm
+++ b/code_perl/Maasha/Seq.pm
@@ -924,11 +924,11 @@ 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 } ) {