summaryrefslogtreecommitdiff
path: root/lib/Search
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@cc.hut.fi>1997-01-02 17:27:47 +1200
committerChip Salzenberg <chip@atlantic.net>1997-01-04 17:44:00 +1200
commit40da2db335c65d50d3bca886fcc7161ed72faf74 (patch)
tree7fa3e6ca078a9a52592d28bd05a7f99be1af6544 /lib/Search
parent5377b7012ceb2c72202db969f3b51a017f9551a9 (diff)
downloadperl-40da2db335c65d50d3bca886fcc7161ed72faf74.tar.gz
Make libs clean under '-w'
Diffstat (limited to 'lib/Search')
-rw-r--r--lib/Search/Dict.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Search/Dict.pm b/lib/Search/Dict.pm
index 1cd5cf8a11..9a229a7bc0 100644
--- a/lib/Search/Dict.pm
+++ b/lib/Search/Dict.pm
@@ -61,7 +61,7 @@ sub look {
<FH> if $min;
for (;;) {
$min = tell(FH);
- $_ = <FH>
+ defined($_ = <FH>)
or last;
chop;
s/[^\w\s]//g if $dict;