mktables: Improve \p{xids} defn for early Unicodes

[perl5.git] / Porting / podtidy

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