fixed perl5.10 issue for soft parser

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

diff --git a/code_perl/Maasha/NCBI.pm b/code_perl/Maasha/NCBI.pm
index 6618092e343fc509c68122a8da7ad13699df5f74..41f17562dca65ac80c24f24a4e0f7ce5934683e2 100644 (file)
--- a/code_perl/Maasha/NCBI.pm
+++ b/code_perl/Maasha/NCBI.pm
@@ -318,8 +318,12 @@ sub soft_get_platform
             {
                 @fields = split "\t", $lines[ $c ];
 
-                $id_hash{ $fields[ $key_hash{ "ID" } ] } = $fields[ $key_hash{ "SEQUENCE" } ] || $fields[ $key_hash{ "ID" } ];
-            
+                if ( defined $key_hash{ "SEQUENCE" } ) {
+                    $id_hash{ $fields[ $key_hash{ "ID" } ] } = $fields[ $key_hash{ "SEQUENCE" } ];
+                } else {
+                    $id_hash{ $fields[ $key_hash{ "ID" } ] } = $fields[ $key_hash{ "ID" } ];
+                }
+
                 $c++;
             }