chiark / gitweb /
Minor little tweaks.
[mLib] / sym-gtest
index b3db9640c7be792b773f764dce5ee53627d8bcc5..3dd6ed6e731746494caa632bc6a54310e773ef61 100755 (executable)
--- a/sym-gtest
+++ b/sym-gtest
@@ -15,7 +15,9 @@ sub random ($) {
   return int(rand($lim));
 }
 
-open(DICT, "/usr/dict/words") or die("open(/usr/dict/words): $!");
+$words = "/usr/dict/words";
+-r $words or $words = "/usr/share/dict/words";
+open(DICT, $words) or die("open($words): $!");
 @w = <DICT>;
 chomp(@w);
 close(DICT);