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