https://perl5.git.perl.org / perl5.git / blame_incremental
| Commit | Line | Data |
|---|---|---|
| 1 | #!perl | |
| 2 | use strict; | |
| 3 | use warnings; | |
| 4 | use Pod::Tidy 0.10; | |
| 5 | ||
| 6 | # Reformat pod using Pod::Tidy | |
| 7 | ||
| 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, | |
| 15 | columns => 72, # 72 is what fmt defaults to | |
| 16 | ); |