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