Porting/podtidy

   1 #!perl
   2 use strict;
   3 use warnings;
   4 use Pod::Tidy;
   5
   6 # Reformat pod using Pod::Tidy
   7
   8 # 72 is what fmt defaults to
   9 $Text::Wrap::columns = 72;
  10
  11 my $filename = shift || die "Usage podtidy [filename]";
  12
  13 Pod::Tidy::tidy_files(
  14     files    => [$filename],
  15     verbose  => 1,
  16     inplace  => 1,
  17     nobackup => 1,
  18 );