summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
b76ce1a)
map { $eval_val =~ s/\Q$_\E/$record->{ $_ }/g } @keys;
map { $eval_val =~ s/\Q$_\E/$record->{ $_ }/g } @keys;
- if ( $eval_val =~ /\+|\-|\*|\\/ or $eval_val =~ /\s+x\s+/)
+ if ( $eval_val =~ /\+|\-|\*|\// or $eval_val =~ /\s+x\s+/)
{
$record->{ $eval_key } = eval "$eval_val";
Maasha::Common::error( qq(eval "$eval_key = $eval_val" failed -> $@) ) if $@;
{
$record->{ $eval_key } = eval "$eval_val";
Maasha::Common::error( qq(eval "$eval_key = $eval_val" failed -> $@) ) if $@;