diff --git a/infrastructure/lib/DPB/Core.pm b/infrastructure/lib/DPB/Core.pm index eeaa07d021d..2663105b327 100644 --- a/infrastructure/lib/DPB/Core.pm +++ b/infrastructure/lib/DPB/Core.pm @@ -1,5 +1,5 @@ # ex:ts=8 sw=4: -# $OpenBSD: Core.pm,v 1.35 2013/03/03 11:11:08 espie Exp $ +# $OpenBSD: Core.pm,v 1.36 2013/04/22 20:56:53 espie Exp $ # # Copyright (c) 2010 Marc Espie # @@ -321,6 +321,12 @@ sub job return $self->{job}; } +sub debug_dump +{ + my $self = shift; + return join(':',$self->hostname, $self->job->debug_dump); +} + sub task { my $self = shift;