From c5efa09ee6b8a3e56405f434cbaef0473a4b6b4c Mon Sep 17 00:00:00 2001 From: "Davide P. Cervone" Date: Tue, 10 Aug 2021 07:00:31 -0400 Subject: [PATCH] Resolve problem with space after function to a power. (#598) --- lib/Parser.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lib/Parser.pm b/lib/Parser.pm index d10af497db..d3a249932c 100644 --- a/lib/Parser.pm +++ b/lib/Parser.pm @@ -266,7 +266,7 @@ sub pushBlankOperand { # Otherwise, report the missing operand for this operator # sub Op { - my $self = shift; my $name = shift; + my $self = shift; my $name = shift; my $NAME = $name; my $ref = $self->{ref} = shift; my $context = $self->{context}; my $op; ($name,$op) = $context->operators->resolve($name); @@ -283,10 +283,10 @@ sub Op { $self->pushOperand($self->Item("UOP")->new($self,$name,$top->{value},$ref)); } else { my $def = $context->operators->resolveDef(' '); - $name = $def->{string} if defined($name) and ($name eq ' ' or $name eq $def->{space}); + $name = $def->{string} if defined($NAME) and ($NAME eq ' ' or $NAME eq $def->{space}); $self->pushOperator($name,$op->{precedence}); } - } elsif (($ref && $name ne ' ') || $self->state ne 'fn') {$self->Op($name,$ref)} + } elsif (($ref && $NAME ne ' ') || $self->state ne 'fn') {$self->Op($NAME,$ref)} } } else { ($name,$op) = $context->operators->resolve('u'.$name)