Open
Description
I had to do this grep by hand because there was no other way to exclude all the noise from a straight grep.
I suggest a checkbox for show me only "perl" files.
$>git grep -P '\$\[\s*='|egrep -v 'C/Config-Manager/t/|/configure:|A/Archive-Har/t/|A/Amon2/lib/Amon2/Setup/Asset/Bootstrap.pm|README|^Binary file |/Changes:|\.(m4|sh|ps|js|[0123456789]|configure|sql|log|tt|defineProperty|yml|yaml|json|xml|pdf):'
A/Algorithm-SkipList/t/09-index.t:# $[ = 1;
B/B-DeparseTree/lib/B/DeparseTree/PP.pm: push @text, '$[ = '. $op->arybase .";\n";
C/Classic-Perl/lib/Classic/Perl.pm: $[ = 1;
C/Classic-Perl/t/arybase.t:$[ = 2;
C/Classic-Perl/t/arybase.t: local $[ = 3;
C/Classic-Perl/t/arybase.t: local $[ = 1;
C/Classic-Perl/t/arybase.t: local $[ = 0;
C/Classic-Perl/t/arybase.t:$[ = 0;
D/Data-Iterator/Iterator.pm: local $[ = 0;
D/Devel-Hints/t/1-basic.t:$[ = 10;
D/Devel-Hints/t/3-coderef.t: $[ = 10;
F/Font-TTF-Scripts/Examples/addpclt.pl:$[ = 0;
G/Gtk2-Ex-TiedListColumn/devel/array-base.t:$[ = 6;
H/HTML-DOM/t/html-dom.t: local $[ = 1;
M/MIDI-SoundFont/SoundFont.pm:# local $[ = 0; # SoundFont indexes start at zero but setting $[ is deprecated
M/Math-BigInt/HISTORY: + s/$[/0/ (after all, $[ = 1; in main does not effect this package)
M/Math-RungeKutta/examples/three-body: my @dydt; local $[=0;
M/Math-RungeKutta/lua/three-body.lua: local dydt = {} -- $[=0;
M/Math-WalshTransform/WalshTransform.pm: local $[ = 0;
M/Modern-Perl/t/year_imports.t: eval qq|use Modern::Perl $year; \$[ = 10;|;
N/Net-SC/lib/Net/SC.pm:local $[ = 0;
O/OLE-Storage/PropertySet.pm:$[=0;
O/OLE-Storage/Storage.pm:$[=0;
O/OLE-Storage/tools/lclean: $|=1; $[=0;
P/POD2-FR/FR/perldiag.pod: $[ = 0;
P/POD2-FR/FR/perldiag.pod: $[ = 1;
P/POD2-FR/FR/perldiag.pod: local $[ = 0;
P/POD2-FR/FR/perldiag.pod: local $[ = 1;
P/POD2-FR/FR/perlfunc.pod:S<<C<<$[ == 0 and $#a >= $i>> :>>
P/POD2-IT/IT/perlfunc.pod:Si hanno le seguenti equivalenze (assumendo C<< $[ == 0 e $#a >= $i >>):
P/Parse-Perl/t/lex_arybase.t:{ $[ = 1; $env_1 = current_environment; }
P/Parse-Perl/t/lex_arybase.t:{ no warnings "void"; $[ = 2; $env_2 = current_environment; }
P/Parse-Perl/t/lex_arybase.t: }.(defined($override) ? "\$[ = $override;" : "").q{
P/Perl-Critic-Freenode/t/Freenode/DeprecatedFeatures.run:$[ = 1;
P/Perl-Lint/t/Policy/Variables/require_localized_punctuation_vars.t:local $[ = ();
P/Perl-Lint/t/Policy/Variables/require_localized_punctuation_vars.t:$[ = ();
P/Perl-Lint/t/Policy/Variables/require_localized_punctuation_vars.t:$[ = ();
P/PerlBench/benchmarks/app/perlfunc.pod:The following equivalences hold (assuming C<< $[ == 0 and $#a >= $i >> )
P/Perlito5/lib/Perlito5/Runtime.pm:# $[ = 0 unless defined $[; # "assignment to $[ is deprecated"
P/Pg-Loader/lib/Pg/Loader/Columns.pm: $[=0; no warnings; %_= map { ($_=>undef)} eval ' @unit['.$tmp.']' }
P/Pod-S5/pod2s5:MW.#S+0;)PV]!Y\:76B/WRXSW."\2M>R6'55)"6J]ZLH@FN$[=K;ID>W0/0X7
V/VCS-SCCS/files/SCCS/s.base.dta:$GFf_4JBJ{]+=}0J&BXv7FRs<$[=d& I:01
p/perl/ext/arybase/arybase.pm: $[ = 1;
p/perl/ext/arybase/arybase.pm: $[ = 1;
p/perl/ext/arybase/arybase.pm: local $[ = 1;
p/perl/ext/arybase/arybase.pm: $[ = 1;
p/perl/ext/arybase/t/aeach.t:$[ = 3;
p/perl/ext/arybase/t/aelem.t:$[ = 3;
p/perl/ext/arybase/t/aelem.t: $[ = -3;
p/perl/ext/arybase/t/akeys.t:$[ = 3;
p/perl/ext/arybase/t/arybase.t:$[ = 3;
p/perl/ext/arybase/t/arybase.t:pass('run-time $[ = 3 assignment (in $[ = 3 scope)');
p/perl/ext/arybase/t/arybase.t: $[ = 0;
p/perl/ext/arybase/t/arybase.t: pass('run-time $[ = 0 assignment (in $[ = 3 scope)');
p/perl/ext/arybase/t/arybase.t:$[ = 6.7;
p/perl/ext/arybase/t/arybase.t:eval { my $x = 45; $[ = \$x }; $l = __LINE__;
p/perl/ext/arybase/t/aslice.t:$[ = 3;
p/perl/ext/arybase/t/aslice.t: $[ = -3;
p/perl/ext/arybase/t/av2arylen.t:$[ = 3;
p/perl/ext/arybase/t/av2arylen.t:$[ = 4;
p/perl/ext/arybase/t/av2arylen.t:$[ = 3;
p/perl/ext/arybase/t/index.t:$[ = 3;
p/perl/ext/arybase/t/lslice.t:$[ = 3;
p/perl/ext/arybase/t/lslice.t: $[ = -3;
p/perl/ext/arybase/t/pos.t:$[ = 3;
p/perl/ext/arybase/t/pos.t: $[ = 0;
p/perl/ext/arybase/t/scope.t:$[ = 3;
p/perl/ext/arybase/t/scope.t: $[ = -1;
p/perl/ext/arybase/t/scope.t: $[ = +0;
p/perl/ext/arybase/t/scope.t: $[ = +1;
p/perl/ext/arybase/t/scope.t: $[ = 0;
p/perl/ext/arybase/t/scope.t: local $[ = -1;
p/perl/ext/arybase/t/scope.t: $[ = 3;
p/perl/ext/arybase/t/splice.t:$[ = 3;
p/perl/ext/arybase/t/splice.t:$[ = -3;
p/perl/ext/arybase/t/substr.t:$[ = 3;
p/perl/lib/B/Deparse.pm: push @text, '$[ = '. $op->arybase .";\n";
p/perl/pod/perldiag.pod: $[ = 0;
p/perl/pod/perldiag.pod: $[ = 1;
p/perl/pod/perldiag.pod: local $[ = 0;
p/perl/pod/perldiag.pod: local $[ = 1;
p/perl/t/lib/feature/bundle:$[ = 1;
p/perl/t/lib/feature/bundle:$[ = 1;
p/perl/t/lib/feature/bundle:$[ = 1;
p/perl/t/lib/feature/bundle:$[ = 1;
p/perl/t/lib/feature/implicit:$[ = 1;
p/perl/t/lib/feature/implicit:$[ = 1;
p/perl/t/lib/feature/implicit:$[ = 1;
p/perl/t/lib/warnings/op:$[ = 1;
p/perl/t/lib/warnings/op:$[ = 2;
p/perl/t/lib/warnings/op:$[ = 3;
p/perl/t/op/array_base.t: is(eval('$[ = 1; 123'), undef);
p/perl/t/op/array_base.t:is(eval('$[ = 0; 123'), 123);
p/perl/t/op/array_base.t:is(eval('$[ = 1; 123'), 123);
p/perl/t/op/array_base.t:$[ = 1;
p/perl/t/op/array_base.t:is(eval('$[ = 1; 123'), undef);
p/perl_mlb/os2/B/Concise.pm: $arybase = $arybase ? ' $[=' . $arybase : "";
p/perl_mlb/os2/B/Deparse.pm: push @text, '$[ = '. $op->arybase .";\n";
p/perlbench/benchmarks/app/perlfunc.pod:The following equivalences hold (assuming C<< $[ == 0 and $#a >= $i >> )
p/ptkFAQ/PNMTYAK/splain: $[ = 0;
p/ptkFAQ/PNMTYAK/splain: $[ = 1;
p/ptkFAQ/PNMTYAK/splain: local $[ = 0;
p/ptkFAQ/PNMTYAK/splain: local $[ = 1;