{
if ( $options->{ "eval" } )
{
{
if ( $options->{ "eval" } )
{
- if ( $options->{ "eval" } =~ /^(.+)\s*=\s*(.+)$/ )
+ if ( $options->{ "eval" } =~ /^(\S+)\s*=\s*(.+)$/ )
{
$eval_key = $1;
$eval_val = $2;
{
$eval_key = $1;
$eval_val = $2;
map { $eval_val =~ s/\Q$_\E/$record->{ $_ }/g } @keys;
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 $@;