Return to p2m_postproc.pl CVS log | Up to [cvsweb.bsd.lv] / pod2mdoc / Regress |
File: [cvsweb.bsd.lv] / pod2mdoc / Regress / p2m_postproc.pl (download)
Revision 1.1, Tue Jul 15 19:20:47 2014 UTC (9 years, 11 months ago) by schwarze
start a regression suite |
#!/usr/bin/perl use warnings; use strict; while (<>) { print; last if $_ eq ".SH \"NAME\"\n"; } $_ = <> // die 'no name section'; s/(.*?)( \\- .*)/\\fB$1\\fP$2/ or die 'bad name section'; print; print <>; exit 0;