re-sync after the big svn loss1.2.41.2.3

1 files changed, 39 insertions, 0 deletions

diff --git a/TODO b/TODO
new file mode 100644
index 0000000..8cb08d2
--- /dev/null
+++ b/TODO
@@ -0,0 +1,39 @@
+- $short_entries[$#entries] = $1;
+
+- sort { values %{$list->[$a]} <=> values %{$list->[$b]} }
+- ($p->is_arch_compat < min map { $_->is_arch_compat } @chosen) ? 10 : 0;
+
+- (-e "$urpm->{cachedir}/partial/$basename" && -s _ > 32)
+
+- join('-', ($p->fullname)[0..2])
+
+- $l[1..$#l]
+
+- { sub f {} } f();
+
+- package foo; ... foo::f()
+
+- my $pid = chomp_(`pidof -x net_applet`) and kill 1, $pid;
+
+- unless ($z = "") {}
+
+- vec($mask, $Offsets{'all'}, 1) = 3
+
+- don't use .perl_checker.cache when .perl_checker changed
+
+- bad slice $l{@l} instead of @l{@l}
+
+- last inside a do { ... } until
+
+- map {; "$_.$ext" => 1 } @l
+  suggest map { ("$_.$ext" => 1) } @l
+  instead of saying unneeded ";"
+
+- @l = (@l, foo());
+- @l = (foo(), @l);
+
+- $value =~ s!1!$self->getvalue!ge;
+
+- http://perlcritic.com/pod/Perl/Critic/Policy/ControlStructures/ProhibitUnreachableCode.html
+  die ''; print "FOO\n";
+  exit ; print "FOO\n";