xlog: Proper argument parser in record (no functional change)

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>

diff --git a/xlog/bin/record b/xlog/bin/record
index 2e9bc7003ebfcb810df69bfc3f6700bdb2f3381f..240883354825fa8ba935039ec6efb719c7bfb8de 100755 (executable)
--- a/xlog/bin/record
+++ b/xlog/bin/record
@@ -8,12 +8,20 @@ our %f;
 
 my $publish_rejections_patfile= '/dev/null';
 my $publish_rejections= 0;
-if ($ARGV[0] eq '-P') {
-    $publish_rejections= 1;
-    shift @ARGV;
-} elsif ($ARGV[0] =~ s/^\-P//) {
-    $publish_rejections= 1;
-    $publish_rejections_patfile= shift @ARGV;
+
+for (;;) {
+    last unless @ARGV;
+    last unless $ARGV[0] =~ m/^-/;
+    $_ = shift @ARGV;
+    last if m/^--?$/;
+    while (m/^-./) {
+       if (s/^-P(.*)$//) {
+           $publish_rejections= 1;
+           $publish_rejections_patfile= $1 if length $1;
+       } else {
+           die "bad option $_ ?";
+       }
+    }
 }
 
 our ($how) = @_;