diff options
author | Nicholas Clark <nick@ccl4.org> | 2011-12-21 14:36:43 +0100 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2011-12-21 14:50:02 +0100 |
commit | 99d49b358be8d3cfec37cd12a0b5f188988cafba (patch) | |
tree | 16a5733de90d3dcff86a87fb08c6fea2e725a65a | |
parent | c938471110fa72a70b9b18aa257d8fc358acbdec (diff) | |
download | perl-99d49b358be8d3cfec37cd12a0b5f188988cafba.tar.gz |
Porting/podtidy can pass 'columns' to Pod::Tidy::tidy_files().
Pod::Tidy 0.10 added this. It's cleaner than setting $Text::Wrap::columns.
-rw-r--r-- | Porting/podtidy | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/Porting/podtidy b/Porting/podtidy index a15b3786cf..05ec740fdc 100644 --- a/Porting/podtidy +++ b/Porting/podtidy @@ -1,13 +1,10 @@ #!perl use strict; use warnings; -use Pod::Tidy; +use Pod::Tidy 0.10; # 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( @@ -15,4 +12,5 @@ Pod::Tidy::tidy_files( verbose => 1, inplace => 1, nobackup => 1, + columns => 72, # 72 is what fmt defaults to ); |