From: ceriel <none@none>
Date: Mon, 11 May 1992 16:15:28 +0000 (+0000)
Subject: Fix in previous added check
X-Git-Tag: release-5-5~481
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=f252e26ab4dae357a1a25717244d5085aec297d6;p=ack.git

Fix in previous added check
---

diff --git a/lang/m2/comp/program.g b/lang/m2/comp/program.g
index 7621f0673..fff51fed3 100644
--- a/lang/m2/comp/program.g
+++ b/lang/m2/comp/program.g
@@ -240,7 +240,7 @@ ProgramModule
 	MODULE
 	IDENT	{ len = strlen(dot.TOK_IDF->id_text);
 		  if (len > 10) len = 10;
-		  if (strncmp(FileName, dot.TOK_IDF->id_text, 10)) {
+		  if (strncmp(FileName, dot.TOK_IDF->id_text, len)) {
 			warning(W_ORDINARY, "modulename %s does not match filename %s", dot.TOK_IDF->id_text, FileName);
 		  }
 		  if (state == IMPLEMENTATION) {