diff options
author | Jarkko Hietaniemi <jhi@cc.hut.fi> | 1997-01-02 17:27:47 +1200 |
---|---|---|
committer | Chip Salzenberg <chip@atlantic.net> | 1997-01-04 17:44:00 +1200 |
commit | 40da2db335c65d50d3bca886fcc7161ed72faf74 (patch) | |
tree | 7fa3e6ca078a9a52592d28bd05a7f99be1af6544 /lib/Search | |
parent | 5377b7012ceb2c72202db969f3b51a017f9551a9 (diff) | |
download | perl-40da2db335c65d50d3bca886fcc7161ed72faf74.tar.gz |
Make libs clean under '-w'
Diffstat (limited to 'lib/Search')
-rw-r--r-- | lib/Search/Dict.pm | 2 |
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; |