summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJesse Luehrs <doy@tozt.net>2010-01-02 16:33:07 -0600
committerJesse Luehrs <doy@tozt.net>2010-01-02 16:33:07 -0600
commitd9e06b0fde102ee76266070d49c4f84916f7896a (patch)
treeeee9aa5e44966192b557945762d3e8d6ffc3c0e8
parentb93b5c605df9c77e0b7c341d118beb0c05d79ee6 (diff)
downloadgames-word-d9e06b0fde102ee76266070d49c4f84916f7896a.tar.gz
games-word-d9e06b0fde102ee76266070d49c4f84916f7896a.zip
cleanups
-rw-r--r--lib/Games/Word/Wordlist.pm6
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 $.;
}