diff options
Diffstat (limited to 'lib')
-rw-r--r-- | lib/Games/Word/Wordlist.pm | 6 |
1 files 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 $.; } |