Run newly-configured perltidy script on Perl files.

Run on HEAD and 9.2.

1 files changed, 20 insertions, 15 deletions

diff --git a/src/backend/utils/generate-errcodes.pl b/src/backend/utils/generate-errcodes.pl
index cb2b5fc35cb..ee76cef47ed 100644
--- a/src/backend/utils/generate-errcodes.pl
+++ b/src/backend/utils/generate-errcodes.pl
@@ -6,36 +6,41 @@
 use warnings;
 use strict;
 
-print "/* autogenerated from src/backend/utils/errcodes.txt, do not edit */\n";
+print
+  "/* autogenerated from src/backend/utils/errcodes.txt, do not edit */\n";
 print "/* there is deliberately not an #ifndef ERRCODES_H here */\n";
 
 open my $errcodes, $ARGV[0] or die;
 
-while (<$errcodes>) {
-    chomp;
+while (<$errcodes>)
+{
+	chomp;
 
-    # Skip comments
-    next if /^#/;
-    next if /^\s*$/;
+	# Skip comments
+	next if /^#/;
+	next if /^\s*$/;
 
-    # Emit a comment for each section header
-    if (/^Section:(.*)/) {
+	# Emit a comment for each section header
+	if (/^Section:(.*)/)
+	{
 		my $header = $1;
 		$header =~ s/^\s+//;
 		print "\n/* $header */\n";
 		next;
 	}
 
-    die "unable to parse errcodes.txt" unless /^([^\s]{5})\s+[EWS]\s+([^\s]+)/;
+	die "unable to parse errcodes.txt"
+	  unless /^([^\s]{5})\s+[EWS]\s+([^\s]+)/;
 
-    (my $sqlstate, my $errcode_macro) = ($1, $2);
+	(my $sqlstate, my $errcode_macro) = ($1, $2);
 
-    # Split the sqlstate letters
-    $sqlstate = join ",", split "", $sqlstate;
-    # And quote them
-    $sqlstate =~ s/([^,])/'$1'/g;
+	# Split the sqlstate letters
+	$sqlstate = join ",", split "", $sqlstate;
 
-    print "#define $errcode_macro MAKE_SQLSTATE($sqlstate)\n";
+	# And quote them
+	$sqlstate =~ s/([^,])/'$1'/g;
+
+	print "#define $errcode_macro MAKE_SQLSTATE($sqlstate)\n";
 }
 
 close $errcodes;