Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
−125
while (my $t = $tix->RT::SearchBuilder::Next) { # BLOODY HACK
my $when = $t->ResolvedObj->Unix - $t->CreatedObj->Unix;
next unless $when > 0; # Doubly bloody hack
my $max = (60*60*24*2) / 1800;
my $x = int($when / 1800);
$counts[$x > $max ? $max : $x]++;
}Нашел в коде RTx Statistics - расширения для CRM Request Tracker: http://wiki.bestpractical.com/view/RT3StatisticsPackage
Запостил: 
del,
19 Мая 2010
Follow us!
еще один кровавый хэк... нокаут...
ой, и у перла есть свой маленький Юникс???
for (1..10000000)
{
my $max = (60*60*24*2) / 1800;
my $a = $max;
}
$ time perl test.pl
real 0m4.071s
my $max = (60*60*24*2) / 1800;
for (1..10000000)
{
my $a = $max;
}
$ time perl test.pl
real 0m2.204s