X-Git-Url: https://git.donarmstrong.com/?p=deb_pkgs%2Fscowl.git;a=blobdiff_plain;f=current%2Fsrc%2Frand-sample.pl;h=f7406fa338a6be6350b3d9a5b5c9f105018df685;hp=966df94261d6735f2f1b6f0a16ebcb7bcf91bd43;hb=7b14ba883fb1046508c44be37b4c6ba5da5feacf;hpb=b72d489091bf51f14f63db9bec15fe71fa52a395

diff --git a/current/src/rand-sample.pl b/current/src/rand-sample.pl
index 966df94..f7406fa 100755
--- 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);