From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Wed, 4 Sep 2013 20:29:33 +0000 (+0100)
Subject: random-word: Some perl-mode emacs formatting glitch workarounds.
X-Git-Tag: debian/4.2.1__iwj2~18
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?a=commitdiff_plain;h=83aa3f4b9c78e443ee16334449c658ba9f7e8396;p=chiark-utils.git

random-word: Some perl-mode emacs formatting glitch workarounds.
---

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 {