mg-hosts mknetbootdir: Improve sub-option parser

No semantic change.

Signed-off-by: Ian Jackson <ian.jackson@eu.citrix.com>

diff --git a/mg-hosts b/mg-hosts
index 58b4acc39f14941550fe58253cd45751230132a7..d68f7b4ee8ca33e8dee90a61a896642eb3e56859 100755 (executable)
--- a/mg-hosts
+++ b/mg-hosts
@@ -121,7 +121,14 @@ sub l ($) { return split /,/, $_[0]; }
 
 sub cmd_mknetbootdir () {
     my $dryrun = 0;
-    if (@ARGV && $ARGV[0] eq '-n') { shift @ARGV; $dryrun= 1; }
+    while (@ARGV && $ARGV[0] =~ m/^-/) {
+       $_ = shift @ARGV;
+       last if $_ =~ m/^--?$/;
+       while (m/^-./) {
+           if (s/^-n/-/) { $dryrun= 1; }
+           else { die "unknown mknetbootdir option $_"; }
+       }
+    }
     die unless @ARGV>=1;
     my $sudo = $ENV{'OSSTEST_SUDO'} // 'sudo';
     foreach my $hn (@ARGV) {