From mboxrd@z Thu Jan 1 00:00:00 1970 From: Ian Jackson Subject: [OSSTEST PATCH 02/13] BuildSupport: make selectbuildhost modify @ARGV Date: Tue, 15 Jul 2014 16:22:16 +0100 Message-ID: <1405437747-12753-3-git-send-email-ian.jackson@eu.citrix.com> References: <1405437747-12753-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 1X74Yz-0005kG-IE for xen-devel@lists.xenproject.org; Tue, 15 Jul 2014 15:22:41 +0000 In-Reply-To: <1405437747-12753-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 We pass it \@ARGV everywhere now, and it eats the argument (if it finds one). This allows build scripts to take extra arguments. Signed-off-by: Ian Jackson --- Osstest/BuildSupport.pm | 5 +++-- ts-kernel-build | 2 +- ts-libvirt-build | 2 +- ts-rumpuserxen-build | 2 +- ts-xen-build | 2 +- 5 files changed, 7 insertions(+), 6 deletions(-) diff --git a/Osstest/BuildSupport.pm b/Osstest/BuildSupport.pm index 6d43cbc..0938810 100644 --- a/Osstest/BuildSupport.pm +++ b/Osstest/BuildSupport.pm @@ -56,8 +56,9 @@ our ($builddir,$makeflags); our ($xendist); sub selectbuildhost { - # pass @ARGV - ($whhost) = @_; + # pass \@ARGV + my ($av) = @_; + $whhost = shift @$av; $whhost ||= 'host'; $ho= selecthost($whhost); } diff --git a/ts-kernel-build b/ts-kernel-build index 984a935..3b48920 100755 --- a/ts-kernel-build +++ b/ts-kernel-build @@ -22,7 +22,7 @@ use Osstest::TestSupport; use Osstest::BuildSupport; tsreadconfig(); -selectbuildhost(@ARGV); +selectbuildhost(\@ARGV); builddirsprops(); my $archparms = { diff --git a/ts-libvirt-build b/ts-libvirt-build index 5f493e4..940c034 100755 --- a/ts-libvirt-build +++ b/ts-libvirt-build @@ -22,7 +22,7 @@ use Osstest::TestSupport; use Osstest::BuildSupport; tsreadconfig(); -selectbuildhost(@ARGV); +selectbuildhost(\@ARGV); builddirsprops(); sub libvirtd_init (); diff --git a/ts-rumpuserxen-build b/ts-rumpuserxen-build index ee2db97..a1f31cd 100755 --- a/ts-rumpuserxen-build +++ b/ts-rumpuserxen-build @@ -22,7 +22,7 @@ use Osstest::TestSupport; use Osstest::BuildSupport; tsreadconfig(); -selectbuildhost(@ARGV); +selectbuildhost(\@ARGV); builddirsprops(); our %submodmap = qw(nblibs nblibs diff --git a/ts-xen-build b/ts-xen-build index 828c2b4..3913273 100755 --- a/ts-xen-build +++ b/ts-xen-build @@ -24,7 +24,7 @@ use Osstest::TestSupport; use Osstest::BuildSupport; tsreadconfig(); -selectbuildhost(@ARGV); +selectbuildhost(\@ARGV); builddirsprops(); sub checkout () { -- 1.7.10.4