- if (m/^-l(\d+)$/) {
- $randlength = $1;
- } elsif (m/^-m(\d+)$/) {
- $maxperuser = $1;
- } elsif (m/^-d(\S+)$/) {
- $dom = $1;
- } elsif (m/^-q(\S+)$/) {
- $qualdom = $1;
- } elsif (m/^-h$/) {
- print $usage1.$usage2 or die $!;
- } else {
- die "unknown option \`$_'\n";
+ for (;;) {
+ last unless m/^-./;
+ if (s/^-l(\d+)$//) {
+ $randlength = $1;
+ } elsif (s/^-m(\d+)$//) {
+ $maxperuser = $1;
+ } elsif (s/^-d(\S+)$//) {
+ $dom = $1;
+ } elsif (s/^-q(\S+)$//) {
+ $qualdom = $1;
+ } elsif (s/^-C/-/) {
+ $showcomment = 1;
+ } elsif (s/^-h/-/) {
+ print $usage1.$usage2 or die $!;
+ exit 0;
+ } else {
+ die "unknown option \`$_'\n";
+ }