fix, module name not detected when shebang line present

CHANGELOG.md

@@ -1,17 +1,18 @@
 # v3.9.7-dev
 
-## Regressions
-
-- Messages, the messages matching to the call stack printed on assert failure were not clickable anymore. The regression was introduced when the support for GNU-style messages was added.
-
 ## Enhancements
 
 - Project menu, git: add the first line of last commit message as additional information, between square brackets, to the items of the list of branches. (#53)
 - Symbol list: keep errors and warnings at the top of the tree and never sort these two categories, to respect the lexicographic order. (#58)
 
-## Bugs
+## Regressions fixed
 
-- Project menu, git: no label in the list of branches when in "detached HEAD" after a checkout
+- Messages, the messages matching to the call stack printed on assert failure were not clickable anymore. The regression was introduced when the support for GNU-style messages was added.
+
+## Bugs fixed
+
+- Editor: module name not displayed in the tab caption if the module has a shebang line.
+- Project menu, git: no label in the list of branches when in "detached HEAD" after a checkout.
 
 ## Other
 

src/u_dlang.pas

@@ -346,6 +346,11 @@ begin
   noComment := lxoNoComments in Options;
 
   reader.Create(@text[1], Point(0, 0));
+
+  if (reader.head^ = '#') and (reader.Next^ = '!') then
+    while (reader.head^ <> #10) do
+      reader.Next;
+
   while (True) do
   begin