-D debug
END
+foreach my $spec (@lp_options) { $usage .= <<END foreach @$spec; }
+ --$_
+END
+
open DEBUG, ">/dev/null" or die $!;
our @paperpts;
} elsif (s/^-D/-/) {
open DEBUG, ">&STDERR" or die $!;
} else {
+ if (m/^--([-a-z]+)$/) {
+ my $lpi = grep {
+ grep { $1 eq $_ } @{ $lp_options[$_] }
+ } 0..$#lp_options;
+ if (defined $lpi) {
+ $lp_fixed[$lpi] = $1;
+ $_ = '';
+ next;
+ }
+ }
badusage;
}
}