From 21f91ee4b41bdcdad5b6e5d00cab67a61fa16ac1 Mon Sep 17 00:00:00 2001 From: martinahansen Date: Tue, 2 Mar 2010 19:09:11 +0000 Subject: [PATCH] fixed bug in Seq.pm git-svn-id: http://biopieces.googlecode.com/svn/trunk@886 74ccb610-7750-0410-82ae-013aeee3265d --- code_perl/Maasha/Seq.pm | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) 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 } ) { -- 2.39.5