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

[chiark-utils.git] / scripts / random-word

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) {
-       $filename= $';
+       $filename= $'; #';
     } elsif (m/^\-r/ && length > 2) {
-       @randfile= ($');
+       @randfile= ($'); #');
     } elsif (m/^\-D$/) {
        open D, ">&STDERR" or fail("dup stderr for debug: $!");
     } else {