From 83aa3f4b9c78e443ee16334449c658ba9f7e8396 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Wed, 4 Sep 2013 21:29:33 +0100
Subject: [PATCH] random-word: Some perl-mode emacs formatting glitch
 workarounds.

---
 debian/changelog    | 6 ++++++
 scripts/random-word | 4 ++--
 2 files changed, 8 insertions(+), 2 deletions(-)

diff --git a/debian/changelog b/debian/changelog
index 8db8616..6bd8b40 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,9 @@
+chiark-utils (4.2.1~~iwj1) unstable; urgency=low
+
+  * random-word: Some perl-mode emacs formatting glitch workarounds.
+
+ --
+
 chiark-utils (4.2.1~~iwj) unstable; urgency=low
 
   * Make xbatmon-simple tolerate the lack of "type" in power supply uevent
diff --git a/scripts/random-word b/scripts/random-word
index 66d09a2..ddd6c52 100755
--- a/scripts/random-word
+++ b/scripts/random-word
@@ -34,9 +34,9 @@ while ($ARGV[0] =~ m/^\-/) {
     } elsif (m/^\-n(\d+)$/) {
 	$want= $1;
     } elsif (m/^\-f/ && length > 2) {
-	$filename= $';
+	$filename= $'; #';
     } elsif (m/^\-r/ && length > 2) {
-	@randfile= ($');
+	@randfile= ($'); #');
     } elsif (m/^\-D$/) {
 	open D, ">&STDERR" or fail("dup stderr for debug: $!");
     } else {
-- 
2.30.2