version 1.7, 2000/10/02 22:20:18
|
version 1.8, 2000/10/11 13:33:33
|
Line 8 sub evaluate {
|
Line 8 sub evaluate {
|
unless (defined $expression) { return ''; } |
unless (defined $expression) { return ''; } |
my $result = ''; |
my $result = ''; |
$@=''; |
$@=''; |
$safeeval->reval('$_=\''.$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 '') { |