Grinnz / Perl-Critic-Community

Perl::Critic::Community - Community-inspired Perl::Critic policies
https://metacpan.org/pod/Perl::Critic::Community
Other
8 stars 10 forks source link

Another Freenode::DollarAB false negative #10

Closed Tux closed 9 years ago

Tux commented 9 years ago
#!perl

use strict;
use warnings;

our $VERSION = "0.00";

my @b = 1..2;
my $x = $b[1]||" ";
$ perlcritic -1 test.pl
test.pl#9.9:    [4 - Freenode::DollarAB]        Using $a or $b outside sort()   :my $x = $b[1]||" ";