diff options
author | jluehrs2 <jluehrs2@uiuc.edu> | 2008-01-31 15:51:54 -0500 |
---|---|---|
committer | jluehrs2 <jluehrs2@uiuc.edu> | 2008-01-31 15:51:54 -0500 |
commit | f83f52be3bd9d5e2de28490dc35e4143ea54c01e (patch) | |
tree | ef4b395b1af894f3b10cee35f8baaf4274bae26c /lib | |
parent | 5c5d2b31195cb72197a0325b32d1daab2704991b (diff) | |
download | games-word-f83f52be3bd9d5e2de28490dc35e4143ea54c01e.tar.gz games-word-f83f52be3bd9d5e2de28490dc35e4143ea54c01e.zip |
better error for unable to open file
Diffstat (limited to 'lib')
-rw-r--r-- | lib/Games/Word.pm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lib/Games/Word.pm b/lib/Games/Word.pm index 1abdcf0..ac7932e 100644 --- a/lib/Games/Word.pm +++ b/lib/Games/Word.pm @@ -19,8 +19,7 @@ sub set_word_list { sub random_word { my $word; - open my $fh, '<', $word_list - or die "Couldn't open word list: $word_list"; + open my $fh, '<', $word_list or die "Opening $word_list failed"; while (<$fh>) { chomp; $word = $_ if int(rand($.)) == 0; |