version 1.14, 2001/01/04 19:14:10
|
version 1.15, 2001/02/19 20:43:00
|
Line 2 package Apache::run;
|
Line 2 package Apache::run;
|
|
|
sub evaluateold { |
sub evaluateold { |
my ($expression,$safeeval,$decls) = @_; |
my ($expression,$safeeval,$decls) = @_; |
# print "inside2 evaluate $decls with $expression<br>\n"; |
# print "inside2 evaluate $decls with $expression<br />\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 ''; } |
unless (defined $expression) { return ''; } |