|
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 '') { |
![[BACK]](/icons/back.gif){kind=icon}
Return to run.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / xml