From: martinahansen <martinahansen@74ccb610-7750-0410-82ae-013aeee3265d>
Date: Fri, 21 Nov 2008 06:48:00 +0000 (+0000)
Subject: fixed bug in compute
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=15502970edc329bf6f14138be809733d8a8f16a2;p=biopieces.git

fixed bug in compute

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

diff --git a/code_perl/Maasha/Biopieces.pm b/code_perl/Maasha/Biopieces.pm
index ebf51a9..4d6ec7e 100644
--- a/code_perl/Maasha/Biopieces.pm
+++ b/code_perl/Maasha/Biopieces.pm
@@ -5545,7 +5545,7 @@ sub script_compute
     {
         if ( $options->{ "eval" } )
         {
-            if ( $options->{ "eval" } =~ /^(.+)\s*=\s*(.+)$/ )
+            if ( $options->{ "eval" } =~ /^(\S+)\s*=\s*(.+)$/ )
             {
                 $eval_key = $1;
                 $eval_val = $2;
@@ -5559,7 +5559,8 @@ sub script_compute
 
                 map { $eval_val =~ s/\Q$_\E/$record->{ $_ }/g } @keys;
 
-                $record->{ $eval_key } = eval "$eval_val" or Maasha::Common::error( "eval failed -> $@" );
+                $record->{ $eval_key } = eval "$eval_val";
+                Maasha::Common::error( qq(eval "$eval_key = $eval_val" failed -> $@) ) if $@;
             }
             else
             {