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

allow looking for a given core when trying to match affinity

Browse Source
This commit is contained in:
espie 2012-12-29 19:14:51 +00:00
parent ebb2a2c90a
commit fa169c69ae
1 changed files with 17 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
infrastructure/lib/DPB/Core.pm
View File

@ -1,5 +1,5 @@
# ex:ts=8 sw=4:
# $OpenBSD: Core.pm,v 1.21 2012/12/24 17:24:46 espie Exp $
# $OpenBSD: Core.pm,v 1.22 2012/12/29 19:14:51 espie Exp $
#
# Copyright (c) 2010 Marc Espie <espie@openbsd.org>
#
@ -679,6 +679,22 @@ sub get
return shift @$a;
}
sub get_affinity
{
my ($self, $host) = @_;
my $l = [];
while (@$available > 0) {
my $core = shift @$available;
if ($core->hostname eq $host) {
push(@$available, @$l);
return $core;
}
push(@$l, $core);
}
$available = $l;
return undef
}
my @all_cores = ();
sub all_sf