From e6ad282e40e0ff48e1f83c050b4bd8a46632bfa9 Mon Sep 17 00:00:00 2001
From: doogie <>
Date: Sun, 18 Mar 2001 05:00:01 -0800
Subject: [PATCH] [project @ 2001-03-18 05:00:01 by doogie] Removed the need
 for $pfullheader.

---
 scripts/process.in | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/scripts/process.in b/scripts/process.in
index 355db908..1967009b 100755
--- a/scripts/process.in
+++ b/scripts/process.in
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $Id: process.in,v 1.23 2001/03/18 04:11:07 doogie Exp $
+# $Id: process.in,v 1.24 2001/03/18 05:00:01 doogie Exp $
 #
 # Usage: process nn
 # Temps:  incoming/Pnn
@@ -93,7 +93,7 @@ if ( $msg[$i] =~ /^--/ || $msg[$i] =~ /^\s*$/ )
 
 while (defined ($msg[$i] ) )
 {
-	last if ( $msg[$i] !~ m/^([\w]+):\s*(\S+)(.*)/ );
+	last if ( $msg[$i] !~ m/^([\w]+):\s*(\S.*)/ );
 	$i++;
 	$fn = $1; $fv = $2;
 	print DEBUG ">$fn|$'|\n";
@@ -101,7 +101,6 @@ while (defined ($msg[$i] ) )
     $fn =~ y/A-Z/a-z/;
     $fv =~ y/A-Z/a-z/;
     $pheader{$fn}= $fv;
-    $pfullheader{$fn}= $2.$3;
 	print DEBUG ">$fn~$fv<\n";
 }
 
@@ -433,9 +432,9 @@ END
     } else { $s_package= $pheader{'package'}; }
     $s_keywords= '';
     if (defined($pheader{'keywords'})) {
-        $s_keywords= $pfullheader{'keywords'};
+        $s_keywords= $pheader{'keywords'};
     } elsif (defined($pheader{'tags'})) {
-        $s_keywords= $pfullheader{'tags'};
+        $s_keywords= $pheader{'tags'};
     }
     if (length($s_keywords)) {
         my @kws;
-- 
2.39.5