[BACK]Return to p2m_postproc.pl CVS log [TXT][DIR] 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, 9 months ago) by schwarze
Branch: MAIN
CVS Tags: VERSION_0_2, VERSION_0_1, VERSION_0_0_13, HEAD 

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;