mirror/perl
1
0
Fork 0
mirror of https://github.com/Perl/perl5.git synced 2026-01-26 16:39:36 +00:00
Code Issues Packages Projects Releases Wiki Activity

Porting/podtidy can pass 'columns' to Pod::Tidy::tidy_files().

Browse Source 
Pod::Tidy 0.10 added this. It's cleaner than setting $Text::Wrap::columns.
This commit is contained in:
Nicholas Clark 2011-12-21 14:36:43 +01:00
parent c938471110
commit 99d49b358b
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Porting/podtidy
View File

@ -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
);