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

Pod::Tidy 0.10 added this. It's cleaner than setting $Text::Wrap::columns.

diff --git a/Porting/podtidy b/Porting/podtidy
index a15b378..05ec740 100644 (file)
--- 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
 );