[project @ 2001-03-18 05:06:00 by doogie]

s/%_/$_/

diff --git a/scripts/process.in b/scripts/process.in
index 1967009b9d5a7a2cd40114498be7d5d32a7245e5..f3fb4b83fbaa2a437b06e052f5b7834f6fd3e3eb 100755 (executable)
--- a/scripts/process.in
+++ b/scripts/process.in
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $Id: process.in,v 1.24 2001/03/18 05:00:01 doogie Exp $
+# $Id: process.in,v 1.25 2001/03/18 05:06:00 doogie Exp $
 #
 # Usage: process nn
 # Temps:  incoming/Pnn
@@ -438,7 +438,7 @@ END
     }
     if (length($s_keywords)) {
         my @kws;
-        my %gkws = map { (%_, 1) } @gTags;
+        my %gkws = map { ($_, 1) } @gTags;
         foreach my $kw (sort split(/[,\s]+/, lc($s_keywords))) {
             push @kws, $kw if (defined $gkws{$kw});
         }