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

diff --git a/debian/changelog b/debian/changelog
index 8db8616224ba716bea1159d07b41930393007c7d..6bd8b40e4465f598e141ce9c3e26df53e198898b 100644 (file)
--- 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
 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 66d09a27027afc28589ca4c65e18e08ce2007bbc..ddd6c5205158684538fdac95268496eaed13821a 100755 (executable)
--- 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) {
     } elsif (m/^\-n(\d+)$/) {
        $want= $1;
     } elsif (m/^\-f/ && length > 2) {

-       $filename= $';
+       $filename= $'; #';

     } elsif (m/^\-r/ && length > 2) {
     } elsif (m/^\-r/ && length > 2) {

-       @randfile= ($');
+       @randfile= ($'); #');

     } elsif (m/^\-D$/) {
        open D, ">&STDERR" or fail("dup stderr for debug: $!");
     } else {
     } elsif (m/^\-D$/) {
        open D, ">&STDERR" or fail("dup stderr for debug: $!");
     } else {