[Xen-devel] [OSSTEST PATCH 02/13] BuildSupport: make selectbuildhost modify @ARGV

[Ian Jackson <ian.jackson@xxxxxxxxxxxxx>]

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 <Ian.Jackson@xxxxxxxxxxxxx>
---
 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


_______________________________________________
Xen-devel mailing list
Xen-devel@xxxxxxxxxxxxx
http://lists.xen.org/xen-devel