From d9e06b0fde102ee76266070d49c4f84916f7896a Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Sat, 2 Jan 2010 16:33:07 -0600
Subject: cleanups

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

diff --git a/lib/Games/Word/Wordlist.pm b/lib/Games/Word/Wordlist.pm
index e58cdee..98d1e4a 100644
--- a/lib/Games/Word/Wordlist.pm
+++ b/lib/Games/Word/Wordlist.pm
@@ -73,8 +73,8 @@ sub new {
     else {
         die "Can't read word list: $word_list" unless -r $word_list;
         if ($self->{cache} && -s $word_list) {
-            open my $fh, $word_list or die "Opening $word_list failed";
-            for (<$fh>) {
+            open my $fh, '<', $word_list or die "Opening $word_list failed";
+            while (<$fh>) {
                 chomp;
                 $self->{word_hash}{$_} = 1;
             }
@@ -145,7 +145,7 @@ sub words {
 
     return @{$self->{word_list}} if $self->{cache};
     open my $fh, '<', $self->{file} or die "Opening $self->{file} failed";
-    for (<$fh>) {}
+    while (<$fh>) {}
 
     return $.;
 }
-- 
cgit v1.2.3