Return to p2m_postproc.pl CVS log

Up to [cvsweb.bsd.lv] / pod2mdoc / Regress

Annotation of pod2mdoc/Regress/p2m_postproc.pl, Revision 1.1

1.1     ! schwarze    1: #!/usr/bin/perl
        !             2: use warnings;
        !             3: use strict;
        !             4:
        !             5: while (<>) {
        !             6:   print;
        !             7:   last if $_ eq ".SH \"NAME\"\n";
        !             8: }
        !             9: $_ = <> // die 'no name section';
        !            10: s/(.*?)( \\- .*)/\\fB$1\\fP$2/ or die 'bad name section';
        !            11: print;
        !            12: print <>;
        !            13: exit 0;