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

Removed the need for $pfullheader.

diff --git a/scripts/process.in b/scripts/process.in
index 355db908d4988e425378ccb57821884a09d30c35..1967009b9d5a7a2cd40114498be7d5d32a7245e5 100755 (executable)
--- 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;