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