[perl5.git] / Porting / podtidy

#!perl
use strict;
use warnings;
use Pod::Tidy 0.10;

# Reformat pod using Pod::Tidy

my $filename = shift || die "Usage podtidy [filename]";

Pod::Tidy::tidy_files(
    files    => [$filename],
    verbose  => 1,
    inplace  => 1,
    nobackup => 1,
    columns => 72, # 72 is what fmt defaults to
);
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	);