From 40da2db335c65d50d3bca886fcc7161ed72faf74 Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@cc.hut.fi>
Date: Thu, 2 Jan 1997 17:27:47 +1200
Subject: Make libs clean under '-w'

---
 lib/Search/Dict.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lib/Search')

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;
-- 
cgit v1.2.1