Add a new Porting/podtidy to reformat pod using Pod::Tidy

1 files changed, 18 insertions, 0 deletions

diff --git a/Porting/podtidy b/Porting/podtidy
new file mode 100644
index 0000000000..a15b3786cf
--- /dev/null
+++ b/Porting/podtidy
@@ -0,0 +1,18 @@
+#!perl
+use strict;
+use warnings;
+use Pod::Tidy;
+
+# 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(
+    files    => [$filename],
+    verbose  => 1,
+    inplace  => 1,
+    nobackup => 1,
+);