X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/80029904763df471b761bf9ea848da86d4196c18..c157f5d2977bb9a463059e5684f4630a38194592:/Porting/podtidy

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