Porting/podtidy

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