Make warning message on missing init file more verbose.

2022-06-22 22:02:09 +02:00 · 2022-06-22 22:02:09 +02:00 · 5e60ef4644
parent 5e1e2bb4b7
commit 5e60ef4644
1 changed files with 7 additions and 2 deletions
--- a/src/frontend/cpitf.c
+++ b/src/frontend/cpitf.c
@ -317,8 +317,13 @@ ft_cpinit(void)
            }
        }

-        if (!found)
-            fprintf(cp_err, "Note: can't find init file.\n");
+        if (!found) {
+#if defined TCL_MODULE
+            fprintf(cp_err, "Note: can't find the initialization file tclspinit.\n");
+#else
+            fprintf(cp_err, "Note: can't find the initialization file spinit.\n");
+#endif
+        }
    }

    tcap_init();