version 1.4, 2000/06/29 18:53:24
|
version 1.5, 2000/06/29 20:27:44
|
Line 2 package Apache::run;
|
Line 2 package Apache::run;
|
|
|
sub evaluate { |
sub evaluate { |
my ($expression,$safeeval,$decls) = @_; |
my ($expression,$safeeval,$decls) = @_; |
# print "inside2 evaluate with $expression\n"; |
# print "inside2 evaluate with $expression\n"; |
# gerd's old method interpolates unset vars |
# gerd's old method interpolates unset vars |
# $safeeval->reval('return qq('.$expression.');'); |
# $safeeval->reval('return qq('.$expression.');'); |
|
unless (defined $expression) { return ''; } |
$safeeval->reval('$_=\''.$expression.'\';'); |
$safeeval->reval('$_=\''.$expression.'\';'); |
$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;}'); |
$safeeval->reval('return $_;'); |
$safeeval->reval('return $_;'); |