--- db/prgsrc/checkPBS.pl	2001/10/31 03:07:18	1.2
+++ db/prgsrc/checkPBS.pl	2002/01/13 00:32:12	1.4
@@ -16,7 +16,7 @@ checkPBS.pl
 
 =cut
 
-
+    use lib "../lib";
 use dbchgk;
 
 mydo ("UPDATE Questions SET ProcessedBySearch=NULL");
@@ -26,7 +26,7 @@ getword2question;
 while (($word,$blob)=getrow,$word)
 {
   print "$sch...\n" unless (++$sch%100);
-  $is{unpack("S",$_)}=1 foreach $blob=~/.(..)./sg;
+  $is{unpack("L",$_) & 0xFFFFF}=1 foreach $blob=~/(...)./sg;
 }
 
 mydo ("UPDATE Questions SET ProcessedBySearch=1 where QuestionId=$_")