From dd11c9037aa75cd16c489758ded3d9a5011e8f4a Mon Sep 17 00:00:00 2001
From: espie <espie@openbsd.org>
Date: Thu, 10 Jan 2013 10:35:36 +0000
Subject: [PATCH] deleting DIST from child is pointless, do a proper finalize

---
 infrastructure/lib/DPB/Job/Port.pm | 14 ++++++++++----
 1 file changed, 10 insertions(+), 4 deletions(-)

diff --git a/infrastructure/lib/DPB/Job/Port.pm b/infrastructure/lib/DPB/Job/Port.pm
index a33d9d60ea7..d3a85468190 100644
--- a/infrastructure/lib/DPB/Job/Port.pm
+++ b/infrastructure/lib/DPB/Job/Port.pm
@@ -1,5 +1,5 @@
 # ex:ts=8 sw=4:
-# $OpenBSD: Port.pm,v 1.60 2013/01/07 10:59:41 espie Exp $
+# $OpenBSD: Port.pm,v 1.61 2013/01/10 10:35:36 espie Exp $
 #
 # Copyright (c) 2010 Marc Espie <espie@openbsd.org>
 #
@@ -201,12 +201,18 @@ sub run
 			unlink($dist->tempfilename);
 		}
 	}
-	if (!$exit) {
-		delete $job->{v}{info}{DIST};
-	}
 	exit($exit);
 }
 
+sub finalize
+{
+	my ($self, $core) = @_;
+	$self->SUPER::finalize($core);
+	if ($core->{status} == 0) {
+		delete $core->job->{v}{info}{DIST};
+	}
+}
+
 package DPB::Task::Port::Serialized;
 our @ISA = qw(DPB::Task::Port);