version 1.8, 2000/10/11 13:33:33
|
version 1.9, 2000/10/30 20:05:19
|
Line 8 sub evaluate {
|
Line 8 sub evaluate {
|
unless (defined $expression) { return ''; } |
unless (defined $expression) { return ''; } |
my $result = ''; |
my $result = ''; |
$@=''; |
$@=''; |
$safeeval->reval('$_=q{'.$expression.'};'); |
$safeeval->reval('$_=q|'.$expression.'|;'); |
if ($@ eq '') { |
if ($@ eq '') { |
$safeeval->reval('{'.$decls.'$_=~s/(\$\{?[A-Za-z]\w*\}?)/(defined(eval($1))?eval($1):$1)/ge;}'); |
$safeeval->reval('{'.$decls.'$_=~s/(\$[A-Za-z]\w*)/(defined(eval($1))?eval($1):$1)/ge;}'); |
if ($@ eq '') { |
if ($@ eq '') { |
$result = $safeeval->reval('return $_;'); |
$result = $safeeval->reval('return $_;'); |
} else { |
} else { |