From: martinahansen <martinahansen@74ccb610-7750-0410-82ae-013aeee3265d>
Date: Tue, 2 Mar 2010 19:09:11 +0000 (+0000)
Subject: fixed bug in Seq.pm
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=21f91ee4b41bdcdad5b6e5d00cab67a61fa16ac1;p=biopieces.git

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 2c64f15..bc07bce 100644
--- 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 } ) {