openbsd/ports
1
0
Fork 0
mirror of https://github.com/openbsd/ports.git synced 2026-06-17 23:13:55 +02:00
Code Issues Packages Projects Releases Wiki Activity

decorate the SPINNING messages like the rest so I get a better chance

Browse Source 
to figure out when they happen
This commit is contained in:
espie
2023-05-07 06:24:45 +00:00
parent 6285be7773
commit fb842c6958
1 changed files with 5 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
infrastructure/bin/dpb
+5 -2
View File
@@ -1,7 +1,7 @@
#! /usr/bin/perl
# ex:ts=8 sw=4:
# $OpenBSD: dpb,v 1.147 2023/05/06 05:20:31 espie Exp $
# $OpenBSD: dpb,v 1.148 2023/05/07 06:24:45 espie Exp $
#
# Copyright (c) 2010-2013 Marc Espie <espie@openbsd.org>
#
@@ -44,6 +44,8 @@ use DPB::Job;
use DPB::Grabber;
use DPB::Trace;
use File::Basename;
use Time::HiRes;
use DPB::Util;
my $keep_going = 1;
@@ -199,7 +201,8 @@ $trace->set_logger($debug);
sub show_spinning($name)
{
my $q = $state->engine->{$name}{queue};
print $debug "SPINNING ON $name\n";
my $ts = DPB::Util->ts2string(Time::HiRes::time());
print $debug "$$ $ts: SPINNING ON $name\n";
while (my ($k, $v) = each %{$q->{o}}) {
print $debug $k, "=>", $v->logname, "\n";
}