corrected an ugly bug in get_record

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

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