fix
parent
d73eb7d9b2
commit
67cdde0327
2
mdwn2man
2
mdwn2man
|
@ -7,7 +7,7 @@ my $section=shift;
|
||||||
print ".TH $prog $section\n";
|
print ".TH $prog $section\n";
|
||||||
|
|
||||||
while (<>) {
|
while (<>) {
|
||||||
s{(\\?)\[\[([^\s\|\]]+)(\|[^\s\]])?\]\]}{$1 ? "[[$2]]" : $2}eg;
|
s{(\\?)\[\[([^\s\|\]]+)(\|[^\s\]]+)?\]\]}{$1 ? "[[$2]]" : $2}eg;
|
||||||
if (/^#\s/) {
|
if (/^#\s/) {
|
||||||
s/^#\s/.SH /;
|
s/^#\s/.SH /;
|
||||||
<>; # blank;
|
<>; # blank;
|
||||||
|
|
Loading…
Reference in New Issue