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

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

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

Revision 2606 Revision 2607
55# 55#
56# Check if an item is a unary negation 56# Check if an item is a unary negation
57# 57#
58sub isNeg { 58sub isNeg {
59 my $self = shift; 59 my $self = shift;
60 return ($self->class eq 'UOP' && $self->{uop} eq 'u-'); 60 return ($self->class eq 'UOP' && $self->{uop} eq 'u-' && !$self->{op}->{isInfinite});
61} 61}
62 62
63# 63#
64# These are stubs for the subclasses 64# These are stubs for the subclasses
65# 65#

Legend:
Removed from v.2606  
changed lines
  Added in v.2607

aubreyja at gmail dot com
ViewVC Help
Powered by ViewVC 1.0.9