From 8d2c9519363a5029a73fb378850b09c639044b63 Mon Sep 17 00:00:00 2001
From: "Bradley M. Kuhn" <bkuhn@ebb.org>
Date: Sun, 27 Jun 2010 12:13:29 -0400
Subject: [PATCH] Fixed bad } closure; added emacs setting.

---
 find-short-domain.plx | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

diff --git a/find-short-domain.plx b/find-short-domain.plx
index 0c99953..5ee44fd 100644
--- a/find-short-domain.plx
+++ b/find-short-domain.plx
@@ -71,8 +71,14 @@ if ($LENGTH == 3) {
     foreach my $let2 ('a' .. 'z', '0' .. '9') {
       CheckDomain("", $let1, $let2);
     }
-  } else {
-    print STDERR "domain length of $LENGTH is unsupported\n";
-    exit 1;
   }
+} else {
+  print STDERR "domain length of $LENGTH is unsupported\n";
+  exit 1;
 }
+###############################################################################
+#
+# Local variables:
+# compile-command: "perl -c find-short-domain.plx"
+# End:
+