Return to run.pm CVS log | Up to [LON-CAPA] / loncom / xml |
version 1.1, 2000/06/28 13:01:52 | version 1.2, 2000/06/28 19:52:20 |
---|---|
Line 1 | Line 1 |
sub evaluate { | package Apache::run; |
my ($expression,$safeeval) = @_; | |
return $safeeval->reval($expression); | |
} | |
sub run { | sub evaluate { |
my ($code,$safeeval) = @_; | my ($expression,$safeeval) = @_; |
$safeeval->reval($code); | return $safeeval->reval($expression); |
} | } |
sub run { | |
my ($code,$safeeval) = @_; | |
$safeeval->reval($code); | |
} | |
1; | |
__END__; |