| … | |
… | |
| 146 | || $next->isa (PPI::Structure::Block::) |
146 | || $next->isa (PPI::Structure::Block::) |
| 147 | || $next->isa (PPI::Structure::List::) |
147 | || $next->isa (PPI::Structure::List::) |
| 148 | || $next->isa (PPI::Structure::Condition::))) |
148 | || $next->isa (PPI::Structure::Condition::))) |
| 149 | ) |
149 | ) |
| 150 | ) { |
150 | ) { |
| 151 | # perl has some idiotic warnigns about nonexisting operators |
151 | # perl has some idiotic warnings about nonexisting operators |
| 152 | if ($prev->isa (PPI::Token::Operator::) && $prev->{content} eq "=" |
152 | if ($prev->isa (PPI::Token::Operator::) && $prev->{content} eq "=" |
| 153 | && $next->isa (PPI::Token::Operator::) && $next->{content} =~ /[+\-]/ |
153 | && $next->isa (PPI::Token::Operator::) && $next->{content} =~ /[+\-]/ |
| 154 | ) { |
154 | ) { |
| 155 | # avoid "Reverse %s operator" diagnostic |
155 | # avoid "Reverse %s operator" diagnostic |
| 156 | } else { |
156 | } else { |
