[OSSTEST PATCH 74/82] host reuse: ts-host-reuse: Prepare for argument handling

[Ian Jackson <iwj@xxxxxxxxxxxxxx>]

From: Ian Jackson <ian.jackson@xxxxxxxxxxxxx>

No functional change.

Signed-off-by: Ian Jackson <iwj@xxxxxxxxxxxxxx>
---
 ts-host-reuse | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/ts-host-reuse b/ts-host-reuse
index aad45bdd..21d77500 100755
--- a/ts-host-reuse
+++ b/ts-host-reuse
@@ -48,9 +48,9 @@ use Osstest::TestSupport;
 
 tsreadconfig();
 
-die unless @ARGV==2;
-
-our ($action, $whhost) = @ARGV;
+die unless @ARGV>=2;
+our $action = shift @ARGV;
+our $whhost = shift @ARGV;
 
 our $ho;
 
@@ -137,6 +137,7 @@ sub noop_if_playing () {
 #---------- actions ----------
 
 sub act_prealloc () {
+    die if @ARGV;
     noop_if_playing();
     compute_test_sharetype();
     $ho = selecthost($whhost, undef, 1);
@@ -145,6 +146,7 @@ sub act_prealloc () {
 }
 
 sub act_start_test () {
+    die if @ARGV;
     compute_test_sharetype();
     $ho = selecthost($whhost);
     return unless $ho->{Shared};
@@ -153,6 +155,7 @@ sub act_start_test () {
 }
 
 sub act_post_test_ok () {
+    die if @ARGV;
     compute_test_sharetype();
     $ho = selecthost($whhost);
     return unless $ho->{Shared};
-- 
2.20.1