Bug #75920 for Perl-Critic: ProhibitInterpolationOfLiterals false positive with map and regexp match

# Tue Mar 20 14:24:14 2012 EDAVIS [...] cpan.org - Ticket created

Subject:

ProhibitInterpolationOfLiterals false positive with map and regexp match

Download (untitled) / with headers
text/plain 137b

map { 0 } /"/ gives a false positive Useless interpolation of literal string at line 1, column 12. See page 51 of PBP. (Severity: 1)

# Tue Mar 20 14:36:17 2012 EDAVIS [...] cpan.org - Correspondence added

Subject:

Various false positives with map and regexp match

Download (untitled) / with headers
text/plain 199b

This also gives a false positive from ValuesAndExpressions::ProhibitMismatchedOperators: Mismatched operator at line 1, column 11. Numeric/string operators and operands should match. (Severity: 3)

# Tue Mar 20 14:36:18 2012 EDAVIS [...] cpan.org - Status changed from 'new' to 'open'

# Tue Mar 20 14:38:46 2012 EDAVIS [...] cpan.org - Correspondence added

Download (untitled) / with headers
text/plain 528b

Looks like a PPI bug: % cat test map { 0 } /"/ % perl -MPPI -MPPI::Dumper -E 'my $p = new PPI::Document "test"; my $d = new PPI::Dumper $p; $d->print' PPI::Document PPI::Statement PPI::Token::Word 'map' PPI::Token::Whitespace ' ' PPI::Structure::Block { ... } PPI::Token::Whitespace ' ' PPI::Statement PPI::Token::Number '0' PPI::Token::Whitespace ' ' PPI::Token::Whitespace ' ' PPI::Token::Operator '/' PPI::Token::Quote::Double '"/\n'

# Tue Mar 20 14:41:26 2012 EDAVIS [...] cpan.org - Correspondence added

Download (untitled) / with headers
text/plain 1.3k

Just to show that PPI is wrong, and it really is a regexp match not a division: % cat test use 5.010; $_ = '"""'; @a = map { 0 } /"/g; say "@a"; % perl test 0 0 0 % perl -MPPI -MPPI::Dumper -E 'my $p = new PPI::Document "test"; my $d = new PPI::Dumper $p; $d->print' PPI::Document PPI::Statement::Include PPI::Token::Word 'use' PPI::Token::Whitespace ' ' PPI::Token::Number::Float '5.010' PPI::Token::Structure ';' PPI::Token::Whitespace '\n' PPI::Statement PPI::Token::Magic '$_' PPI::Token::Whitespace ' ' PPI::Token::Operator '=' PPI::Token::Whitespace ' ' PPI::Token::Quote::Single ''"""'' PPI::Token::Structure ';' PPI::Token::Whitespace '\n' PPI::Statement PPI::Token::Symbol '@a' PPI::Token::Whitespace ' ' PPI::Token::Operator '=' PPI::Token::Whitespace ' ' PPI::Token::Word 'map' PPI::Token::Whitespace ' ' PPI::Structure::Block { ... } PPI::Token::Whitespace ' ' PPI::Statement PPI::Token::Number '0' PPI::Token::Whitespace ' ' PPI::Token::Whitespace ' ' PPI::Token::Operator '/' PPI::Token::Quote::Double '"/g;\nsay "' PPI::Token::Symbol '@a' PPI::Token::Quote::Double '";\n'

# Tue Mar 20 14:45:41 2012 EDAVIS [...] cpan.org - Correspondence added

Download (untitled) / with headers
text/plain 28b

Filed against PPI as #75921.

Bug #75920 for Perl-Critic: ProhibitInterpolationOfLiterals false positive with map and regexp match

Preferred bug tracker