From 787d0ca1021ec049d1f928991624a58130ca324c Mon Sep 17 00:00:00 2001
From: root <devnull@localhost>
Date: Thu, 22 Feb 1996 20:01:56 +0000
Subject: [PATCH] require ':' after preamble parts warn user about unknown
 premable parts "Fields" sanity check for internal error

CVS patchset: 402
CVS date: 1996/02/22 20:01:56
---
 build/spec.c | 17 ++++++++++++++---
 1 file changed, 14 insertions(+), 3 deletions(-)

diff --git a/build/spec.c b/build/spec.c
index 3415ef4..9c378ef 100644
--- a/build/spec.c
+++ b/build/spec.c
@@ -468,8 +468,12 @@ static int find_preamble_line(char *line, char **s)
     while (p->token && strncasecmp(line, p->token, p->len)) {
         p++;
     }
-    if (!p) return 0;
+    if (!p->token) return 0;
     *s = line + p->len;
+    *s += strspn(*s, " \t");
+    if (**s != ':') {
+	return 0;
+    }
     *s += strspn(*s, ": \t");
     return p->tag;
 }
@@ -783,11 +787,18 @@ Spec parseSpec(FILE *f, char *specfile)
 		      }
 		      break;
 		  default:
-		    message(MESS_DEBUG, "Skipping: %s\n", line);
+		      /* message(MESS_DEBUG, "Skipping: %s\n", line); */
+		      /* This shouldn't happen? */
+		      error(RPMERR_INTERNAL, "Bogus token");
+		      return NULL;
 		}		
 	    } else {
 	        /* Not a recognized preamble part */
-	        message(MESS_DEBUG, "Unknown Field: %s\n", line);
+		s1 = line;
+		while (*s1 && *s1 != ' ' && *s1 != '\t') s1++;
+		if (*s1) {
+		    message(MESS_WARNING, "Unknown Field: %s\n", line);
+		}
 	    }
 	    break;
 	  case PREP_PART:
-- 
2.7.4