4 %tags = ( 'a', '@BAMAN@', 'c', '@LCMAN@', 'r', '@SEMAN@', 't', '@SEMAN@');
7 if (/^\.IP(.*-([acrt]))?/) {
8 $t = $1 ? $tags{$2} : undef;
9 } elsif (/-a.*auth_type/) {
11 } elsif (/(-c.*class.*\||login_cap)/) {
13 } elsif (/-r.*role.*-t.*type/) {
17 # Fix up broken pod2man formatting of F<@foo@/bar>
18 s/\\fI\\f(\(C)?I\@([^\@]*)\\fI\@/\\fI\@$2\@/g;
20 # comment out Compile-time-specific lines in DESCRIPTION