chiark / gitweb /
sym-gtest: Don't include empty words.
[mLib] / sym-gtest
index 3dd6ed6e731746494caa632bc6a54310e773ef61..ac5bcafcfddd2c1cf70f5c4d388e91b0abcc6366 100755 (executable)
--- a/sym-gtest
+++ b/sym-gtest
@@ -18,7 +18,7 @@ sub random ($) {
 $words = "/usr/dict/words";
 -r $words or $words = "/usr/share/dict/words";
 open(DICT, $words) or die("open($words): $!");
-@w = <DICT>;
+@w = grep /./, <DICT>;
 chomp(@w);
 close(DICT);