blob: a15b3786cf0016bd918122403882f1769a12a481 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
#!perl
use strict;
use warnings;
use Pod::Tidy;
# Reformat pod using Pod::Tidy
# 72 is what fmt defaults to
$Text::Wrap::columns = 72;
my $filename = shift || die "Usage podtidy [filename]";
Pod::Tidy::tidy_files(
files => [$filename],
verbose => 1,
inplace => 1,
nobackup => 1,
);
|
