[perl #64772] allow for sync on read only handles
[perl.git] / Porting / podtidy
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 );