Localise temporary FHs in the EU::Constant tests
[perl.git] / Porting / podtidy
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 );