From d9ab06360393ac4db917010a9c43a0e619ac220a Mon Sep 17 00:00:00 2001
From: Nathan Neulinger <nneul@neulinger.org>
Date: Fri, 14 Feb 2014 15:28:14 -0600
Subject: [PATCH] reformat with perltidy and add sample perltidyrc file

---
 scripts/perl/perltidyrc      | 42 ++++++++++++++++++++++++++++++++++++
 scripts/perl/timezone-gen.pl |  6 ++----
 2 files changed, 44 insertions(+), 4 deletions(-)
 create mode 100644 scripts/perl/perltidyrc

diff --git a/scripts/perl/perltidyrc b/scripts/perl/perltidyrc
new file mode 100644
index 0000000000..59bcb55450
--- /dev/null
+++ b/scripts/perl/perltidyrc
@@ -0,0 +1,42 @@
+-l=120
+# Max line width is 120 cols
+
+-i=4    
+# Indent level is 4 cols
+
+-ci=4   
+# Continuation indent is 4 cols
+
+-st     
+# Output to STDOUT
+
+-se     
+# Errors to STDERR
+
+-vt=2   
+# Maximal vertical tightness
+
+-cti=0  
+# No extra indentation for closing brackets
+
+-pt=1   
+# Medium parenthesis tightness
+
+-bt=1   
+# Medium brace tightness
+
+-sbt=1  
+# Medium square bracket tightness
+
+-bbt=1  
+# Medium block brace tightness
+
+-nsfs   
+# No space before semicolons
+
+-nolq   
+# Don't outdent long
+# quoted strings
+
+-wbb="% + - * / x != == >= <= =~ !~ < > | & >= < = **= += *= &= ><<= &&= -= /= |= >>= ||= .= %= ^= x="
+# Break before all operators
diff --git a/scripts/perl/timezone-gen.pl b/scripts/perl/timezone-gen.pl
index a6a4053e46..682964d77d 100755
--- a/scripts/perl/timezone-gen.pl
+++ b/scripts/perl/timezone-gen.pl
@@ -18,8 +18,7 @@ my $res = GetOptions(
     "output" => \$output
 );
 if ( !$res || $help ) {
-    print
-"$0 [--base=/usr/share/zoneinfo] [--output=timezones.conf.xml] [--debug] [--help]\n";
+    print "$0 [--base=/usr/share/zoneinfo] [--output=timezones.conf.xml] [--debug] [--help]\n";
     exit;
 }
 
@@ -69,8 +68,7 @@ foreach my $name ( sort( keys(%name_to_file) ) ) {
 }
 
 open( my $out, ">$output" );
-print $out
-  "<configuration name=\"timezones.conf\" description=\"Timezones\">\n";
+print $out "<configuration name=\"timezones.conf\" description=\"Timezones\">\n";
 print $out " " x 4, "<timezones>\n";
 
 my $lastprefix = "";