Adjusted to only check the module name against the leaf of the filename, to prevent...

diff --git a/lang/m2/comp/program.g b/lang/m2/comp/program.g
index abc75bd..05fedef 100644 (file)
--- a/lang/m2/comp/program.g
+++ b/lang/m2/comp/program.g
@@ -236,10 +236,15 @@ ProgramModule
                { 
                  if (state == IMPLEMENTATION) {
                        int len = strlen(dot.TOK_IDF->id_text);
+                       char* leafname = strrchr(FileName, '/');
+                       if (leafname)
+                               leafname++;
+                       else
+                               leafname = FileName;
 
                        if (len > 10) len = 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 (strncmp(leafname, dot.TOK_IDF->id_text, len)) {
+                               warning(W_ORDINARY, "modulename %s does not match filename %s", dot.TOK_IDF->id_text, leafname);
                        }
                        df = GetDefinitionModule(dot.TOK_IDF, 0);
                        CurrVis = df->mod_vis;