[svn-upgrade] new version scowl (7.1)

[deb_pkgs/scowl.git] / current / src / rand-sample.pl

diff --git a/current/src/rand-sample.pl b/current/src/rand-sample.pl
index 966df94261d6735f2f1b6f0a16ebcb7bcf91bd43..f7406fa338a6be6350b3d9a5b5c9f105018df685 100755 (executable)
--- a/current/src/rand-sample.pl
+++ b/current/src/rand-sample.pl
@@ -4,6 +4,7 @@ while (<STDIN>) {
   chop;
   push @words, $_;
 }
+@words = grep {length $_ > 2} @words;
 @words = sort @words;
 @num = (0 .. $#words);