git.gag.com Git - debian/sudo/blob - sudoers.man.pl

   1 #!/usr/bin/perl -p
   2
   3 BEGIN {
   4     $t = undef;
   5 }
   6
   7 if (/^\./) {
   8     if (/^\.I[PX].*use_loginclass/) {
   9         $t = '@LCMAN@';
  10     } elsif (/^\.I[PX].*(role|type)/) {
  11         $t = '@SEMAN@';
  12     } else {
  13         $t = undef;
  14     }
  15 }
  16
  17 # Fix up broken pod2man formatting of F<@foo@/bar>
  18 s/\\fI\\f(\(C)?I\@([^\@]*)\\fI\@/\\fI\@$2\@/g;
  19 s/\\f\(\CW\@([^\@]*)\\fR\@/\@$1\@/g;
  20 #\f(CW@secure_path\fR@
  21
  22 # Comment out Compile-time-specific lines in DESCRIPTION
  23 if ($t) {
  24     $_ = $t . $_;
  25 }