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

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

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

Revision 2801 Revision 2936
349# 349#
350# Promote an operand to the same precedence as the current object 350# Promote an operand to the same precedence as the current object
351# 351#
352sub promotePrecedence { 352sub promotePrecedence {
353 my $self = shift; my $other = shift; 353 my $self = shift; my $other = shift;
354 return 0 unless Value::isValue($other);
354 my $sprec = $$context->{precedence}{class($self)}; 355 my $sprec = $$context->{precedence}{class($self)};
355 my $oprec = $$context->{precedence}{class($other)}; 356 my $oprec = $$context->{precedence}{class($other)};
356 return (defined($oprec) && $sprec < $oprec) || 357 return (defined($oprec) && $sprec < $oprec) ||
357 ($sprec > $oprec && $sprec >= $$context->{precedence}{special}); 358 ($sprec > $oprec && $sprec >= $$context->{precedence}{special});
358} 359}

Legend:
Removed from v.2801  
changed lines
  Added in v.2936

aubreyja at gmail dot com
ViewVC Help
Powered by ViewVC 1.0.9