[system] / trunk / pg / lib / Parser.pm Repository:
ViewVC logotype

Diff of /trunk/pg/lib/Parser.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

Revision 2605 Revision 2609
660# 660#
661sub Evaluate { 661sub Evaluate {
662 my $f = shift; 662 my $f = shift;
663 return unless defined($f); 663 return unless defined($f);
664 my $v = eval {$f->eval(@_)}; 664 my $v = eval {$f->eval(@_)};
665 $v = Value::Real->new($v) if defined($v) && $f->isRealNumber; 665 $v = Value::makeValue($v) if defined($v);
666 return $v; 666 return $v;
667} 667}
668 668
669 669
670################################################## 670##################################################

Legend:
Removed from v.2605  
changed lines
  Added in v.2609

aubreyja at gmail dot com
ViewVC Help
Powered by ViewVC 1.0.9