- 1
map { push @{ $cgih->{add_result}->{errors} }, 'НЕ добавлено: ' . $_->{title} } @failed_comps;
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
Всего: 3
−116
map { push @{ $cgih->{add_result}->{errors} }, 'НЕ добавлено: ' . $_->{title} } @failed_comps;
Видимо теперь использовать for это уже не по-пацански!
−121
sub save_info {
beginTransaction();
#------- 250 строк страшного кода, типа: ---------
.....
goto ERROR if $error_code != 0;
.....
#------- или
if ( $res = save_item($data) ) {
goto OK;
}
............
#------- Но конец просто меня убил!!! ---------
OK:
commitTransaction();
goto RET;
ERROR:
rollbackTransaction();
RET:
return $res;
}
Я около 3 лет пишу на perl. И догадывался, что есть perl-программисты, которые используют оператор goto LABEL.
Но я никогда не думал, что мне придется саппортить их код!!!
−865
(
(
((
SELECT a.* FROM collections a
LEFT JOIN link_xml_collections lxa ON
lxa.collection_id = a.id
WHERE lxa.xml_id IS NULL
) UNION (
SELECT a.* FROM collections a
WHERE get_action_of_collection_last_xml(a.id, a.modified) = 3
)) INTERSECT (
SELECT a.* FROM collections a
LEFT JOIN link_collection_compositions AS lcc ON lcc.collection_id = a.id
LEFT JOIN compositions AS c ON c.id = lcc.composition_id
WHERE c.status = 0
)
) INTERSECT (
SELECT a.* FROM public.collections AS a
LEFT JOIN link_collection_compositions AS lcc ON lcc.collection_id = a.id
LEFT JOIN compositions AS c ON c.id = lcc.composition_id WHERE c.owner_id = 6 AND a.modified >= '2010-08-10 00:00:00'
)
) EXCEPT (
SELECT a.* FROM collections a WHERE a.title_ua ILIKE 'TEST%'
)
Попросили пофиксить багу в функции, которая в зависимости от передаваемых параметров формировала sql запрос и возвращала данные. (Человек коротый это писал уволился.) Решил залогировать конечный sql запрос - получилось такое.