[perl5.git] / Porting / podtidy

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

# Reformat pod using Pod::Tidy

# 72 is what fmt defaults to
$Text::Wrap::columns = 72;

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

Pod::Tidy::tidy_files(
    files    => [$filename],
    verbose  => 1,
    inplace  => 1,
    nobackup => 1,
);
Commit	Line	Data
80029904 LB	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	);