cpet/openbsd-ports
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

remove unneeded scaffold

Browse Source
This commit is contained in:
espie 2013-01-04 12:34:29 +00:00
parent 9d015892e8
commit 66ec642cc7
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
infrastructure/lib/DPB/Limiter.pm
View File

@ -1,5 +1,5 @@
# ex:ts=8 sw=4:
# $OpenBSD: Limiter.pm,v 1.1 2013/01/04 12:06:25 espie Exp $
# $OpenBSD: Limiter.pm,v 1.2 2013/01/04 12:34:29 espie Exp $
#
# Copyright (c) 2010 Marc Espie <espie@openbsd.org>
#
@ -38,10 +38,10 @@ sub limit
my ($self, $forced, $factor, $tag, $cond, $code) = @_;
$self->{ts} = time();
$self->{next_check} //= $self->{ts};
print $temp "$$\@$self->{ts}: $tag " if defined $temp;
print $temp "$$\@$self->{ts}: $tag ";
if (!($forced && $self->{unchecked}) &&
$self->{ts} < $self->{next_check} && $cond) {
print $temp "-\n" if defined $temp;
print $temp "-\n";
$self->{unchecked} = 1;
return 0;
}
@ -55,7 +55,7 @@ sub limit
my $check_interval = $factor * ($end - $start);
my $offset = $self->{ts} - $self->{next_check};
$offset /= 2;
print $temp sprintf("%.2f ", $offset) if defined $temp;
print $temp sprintf("%.2f ", $offset);
$self->{next_check} = $self->{ts} + $check_interval;
if ($offset > 0) {
@ -65,8 +65,7 @@ sub limit
$self->{next_check} = $end;
}
print $temp
sprintf(" %.2f %.2f\n", $self->{next_check}, $check_interval)
if defined $temp;
sprintf(" %.2f %.2f\n", $self->{next_check}, $check_interval);
return 1;
}