From 99d49b358be8d3cfec37cd12a0b5f188988cafba Mon Sep 17 00:00:00 2001
From: Nicholas Clark <nick@ccl4.org>
Date: Wed, 21 Dec 2011 14:36:43 +0100
Subject: [PATCH] Porting/podtidy can pass 'columns' to
 Pod::Tidy::tidy_files().

Pod::Tidy 0.10 added this. It's cleaner than setting $Text::Wrap::columns.
---
 Porting/podtidy | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

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