From mboxrd@z Thu Jan 1 00:00:00 1970 From: Ian Jackson Subject: [OSSTEST PATCH 01/13] Tcl: Use lshift instead of open-coding with lrange Date: Wed, 2 Sep 2015 16:45:07 +0100 Message-ID: <1441208719-31336-2-git-send-email-ian.jackson@eu.citrix.com> References: <1441208719-31336-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.bemta3.messagelabs.com ([195.245.230.39]) by lists.xen.org with esmtp (Exim 4.72) (envelope-from ) id 1ZXAJY-00026l-UI for xen-devel@lists.xenproject.org; Wed, 02 Sep 2015 15:51:09 +0000 In-Reply-To: <1441208719-31336-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 In ms-queuedaemon, and JobDB-Executive, once each. No functional change. Signed-off-by: Ian Jackson --- ms-queuedaemon | 3 +-- tcl/JobDB-Executive.tcl | 3 +-- 2 files changed, 2 insertions(+), 4 deletions(-) diff --git a/ms-queuedaemon b/ms-queuedaemon index e15bc79..d6d59ee 100755 --- a/ms-queuedaemon +++ b/ms-queuedaemon @@ -210,8 +210,7 @@ proc queuerun-perhaps-step {} { return } - set thinking [lindex $queue_running 0] - set queue_running [lrange $queue_running 1 end] + set thinking [lshift queue_running] log-event "queuerun-perhaps-step selected" set thinking_after [after [expr {$c(QueueThoughtsTimeout) * 1000}] \ diff --git a/tcl/JobDB-Executive.tcl b/tcl/JobDB-Executive.tcl index 7228712..d61d2a2 100644 --- a/tcl/JobDB-Executive.tcl +++ b/tcl/JobDB-Executive.tcl @@ -74,8 +74,7 @@ proc set-flight {} { set argv [lrange $argv 2 end] } - set flight [lindex $argv 0] - set argv [lrange $argv 1 end] + set flight [lshift argv] set env(OSSTEST_FLIGHT) $flight } -- 1.7.10.4