From mboxrd@z Thu Jan 1 00:00:00 1970 From: Ian Jackson Subject: [OSSTEST PATCH 24/33] cs-adjust-flight: Provide `jobs-del' operation Date: Thu, 17 Sep 2015 18:37:51 +0100 Message-ID: <1442511480-32587-25-git-send-email-ian.jackson@eu.citrix.com> References: <1442511480-32587-1-git-send-email-ian.jackson@eu.citrix.com> Mime-Version: 1.0 Content-Type: text/plain; charset="us-ascii" Content-Transfer-Encoding: 7bit Return-path: Received: from mail6.bemta5.messagelabs.com ([195.245.231.135]) by lists.xen.org with esmtp (Exim 4.72) (envelope-from ) id 1Zcd8T-0006Kp-3r for xen-devel@lists.xenproject.org; Thu, 17 Sep 2015 17:38:17 +0000 In-Reply-To: <1442511480-32587-1-git-send-email-ian.jackson@eu.citrix.com> List-Unsubscribe: , List-Post: List-Help: List-Subscribe: , Sender: xen-devel-bounces@lists.xen.org Errors-To: xen-devel-bounces@lists.xen.org To: xen-devel@lists.xenproject.org Cc: Ian Jackson , Ian Campbell List-Id: xen-devel@lists.xenproject.org Signed-off-by: Ian Jackson --- v2: New patch --- cs-adjust-flight | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/cs-adjust-flight b/cs-adjust-flight index 4056765..04ab6fe 100755 --- a/cs-adjust-flight +++ b/cs-adjust-flight @@ -186,6 +186,13 @@ sub change__jobs_list { }); } +sub change__jobs_del { + die unless @changes >= 1; + my $jobspec = shift @changes; + prep_rm_jobs(); + for_jobs($dstflight, $jobspec, \&do_rm_job, 1); +} + sub change__copy_jobs { die unless @changes >= 2; my $srcflight = shift @changes; -- 1.7.10.4