}
close IN;
+$short_no_arg{'p'} = 1;
+
my $short_no_arg = join('', sort keys %short_no_arg);
my $short_with_num = join('', sort keys %short_with_num);
foreach my $opt (sort keys %long_opt) {
my $val = $long_opt{$opt};
- $val = 1 if $opt =~ /^max-/;
+ $val = 1 if $opt =~ /^(max-|min-)/;
$val = 3 if $opt eq 'files-from';
$val = '$ro ? -1 : ' . $val if $opt =~ /^remove-/;
print " '$opt' => $val,\n";