openresty/util/fix-pod2markdown

21 lines
278 B
Perl
Executable File

#!/usr/bin/env perl
use strict;
use warnings;
my $indented;
while (<>) {
if (/^ \S/) {
$indented = 1;
print;
next;
}
if ($indented) {
if (/^[^-\#=\s]/) {
print "\n";
}
undef $indented;
}
print;
}