From 69f8d7813a20f41568a6eec0503f04dce2e81613 Mon Sep 17 00:00:00 2001
From: jluehrs2 <jluehrs2@uiuc.edu>
Date: Sat, 2 Feb 2008 00:04:40 -0500
Subject: make $wl->words work properly when the wordlist isn't cached

---
 lib/Games/Word/Wordlist.pm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/lib/Games/Word/Wordlist.pm b/lib/Games/Word/Wordlist.pm
index 702f5a1..81f8a5b 100644
--- a/lib/Games/Word/Wordlist.pm
+++ b/lib/Games/Word/Wordlist.pm
@@ -67,8 +67,10 @@ sub remove_words {
 sub words {
     my $self = shift;
 
-    return unless $self->{cache};
-    return @{$self->{word_list}};
+    return @{$self->{word_list}} if $self->{cache};
+    open my $fh, '<', $self->{file};
+    for (<$fh>) {}
+    return $.;
 }
 
 sub _random_word_cache {
-- 
cgit v1.2.3-54-g00ecf