|
Lines 80-88
my $temp = '/tmp/docnits.txt';
Link Here
|
| 80 |
my $OUT; |
80 |
my $OUT; |
| 81 |
my $status = 0; |
81 |
my $status = 0; |
| 82 |
|
82 |
|
| 83 |
$opt_m = "man1,man3,man5,man7" unless $opt_m; |
83 |
$opt_m = "man1,man5" unless $opt_m; |
| 84 |
die "Argument of -m option may contain only man1, man3, man5, and/or man7" |
84 |
die "Argument of -m option may contain only man1, man3, man5, and/or man7" |
| 85 |
unless $opt_m =~ /^(man[1357][, ]?)*$/; |
85 |
unless $opt_m =~ /^(man[15][, ]?)*$/; |
| 86 |
my @sections = ( split /[, ]/, $opt_m ); |
86 |
my @sections = ( split /[, ]/, $opt_m ); |
| 87 |
|
87 |
|
| 88 |
my %mandatory_sections = ( |
88 |
my %mandatory_sections = ( |