From: doogie <>
Date: Fri, 6 Oct 2000 13:21:54 +0000 (-0800)
Subject: [project @ 2000-10-06 06:21:54 by doogie]
X-Git-Tag: release/2.6.0~1246
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=cbcbfa1a03b934de716f45ab938ce77318b21511;p=debbugs.git

[project @ 2000-10-06 06:21:54 by doogie]
Properly populate the keywords field in .status.  Previously, it was only
storing the first word after 'keyword: '.
---

diff --git a/scripts/process.in b/scripts/process.in
index 9b1dd20a..3362ac75 100755
--- a/scripts/process.in
+++ b/scripts/process.in
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $Id: process.in,v 1.14 2000/10/05 21:07:42 joy Exp $
+# $Id: process.in,v 1.15 2000/10/06 06:21:54 doogie Exp $
 #
 # Usage: process nn
 # Temps:  incoming/Pnn
@@ -91,7 +91,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";
@@ -99,6 +99,7 @@ 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";
 }
 
@@ -426,7 +427,7 @@ END
 	&finish;
     } else { $s_package= $pheader{'package'}; }
     if (defined($pheader{'keywords'})) {
-        $s_keywords= $pheader{'keywords'};
+        $s_keywords= $pfullheader{'keywords'};
     }
     $s_severity= '';
 	if (defined($pheader{'severity'}) || defined($pheader{'priority'}))