~mdw
/
mLib
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Don't include trailing zero in the name of a gensym.
[mLib]
/
sym-gtest
diff --git
a/sym-gtest
b/sym-gtest
index
b3db964
..
3dd6ed6
100755
(executable)
--- a/
sym-gtest
+++ b/
sym-gtest
@@
-15,7
+15,9
@@
sub random ($) {
return int(rand($lim));
}
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);
@w = <DICT>;
chomp(@w);
close(DICT);