[svn-buildpackage] Tagging scowl 7.1-1

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

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