fixed ugly bug in get_record

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

diff --git a/code_perl/Maasha/Biopieces.pm b/code_perl/Maasha/Biopieces.pm
index 589cab9d3d41047365df1fe0a0b4e95328be338a..d375e2d60a568fc0368ac98a42e28c226bd6a115 100644 (file)
--- a/code_perl/Maasha/Biopieces.pm
+++ b/code_perl/Maasha/Biopieces.pm
@@ -5918,7 +5918,7 @@ sub get_record
 
     # Returns data structure. 
 
-    my ( $block, @lines, $line, %record );
+    my ( $block, @lines, $line, $key, $value, %record );
 
     local $/ = "\n---\n";
 
@@ -5932,10 +5932,9 @@ sub get_record
 
     foreach $line ( @lines )
     {
-        # ( $key, $value ) = split ": ", $line;      # ooops, this one is buggy!
-        if ( $line =~ /^([^:]+?):\s+(.*)/ ) {
-            $record{ $1 } = $2;
-        }
+        ( $key, $value ) = split ": ", $line, 2;
+
+        $record{ $key } = $value;
     }
 
     return wantarray ? %record : \%record;