From 8409556e1c60df3cf30495dd1fae614d78186ca5 Mon Sep 17 00:00:00 2001
From: Sergey Matveev <stargrave@stargrave.org>
Date: Sat, 31 May 2025 14:15:00 +0300
Subject: [PATCH] Fixed inclusion parsing

---
 swg | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/swg b/swg
index b42e7bc..570720c 100755
--- a/swg
+++ b/swg
@@ -111,7 +111,7 @@ for my $pth (keys %Mtimes) {
     my sub procline;
     sub procline {
         my ($line) = @_;
-        if (/^<<.*\[(.*)\]${CR}$/) {
+        if ($line =~ /^.*<<.*\[(.*)\]${CR}/) {
             $found{$1} = 1;
             open my $fh, q{<:encoding(UTF-8)}, $1 or croak "$!";
             while (<$fh>) { $lines++; procline $_ }
-- 
2.48.1