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

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

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

Revision 2606 Revision 2607
9# 9#
10# Check that the operand is OK 10# Check that the operand is OK
11# 11#
12sub _check { 12sub _check {
13 my $self = shift; 13 my $self = shift;
14 return if ($self->checkInfinite);
14 return if ($self->checkString()); 15 return if ($self->checkString);
15 return if ($self->checkList()); 16 return if ($self->checkList);
16 return if ($self->checkNumber()); 17 return if ($self->checkNumber);
17 $self->{type} = {%{$self->{op}->typeRef}}; 18 $self->{type} = {%{$self->{op}->typeRef}};
18} 19}
19 20
20# 21#
21# Plus doesn't change the value 22# Plus doesn't change the value

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

aubreyja at gmail dot com
ViewVC Help
Powered by ViewVC 1.0.9