From: Sergey Matveev <stargrave@stargrave.org>
Date: Sat, 31 May 2025 11:15:00 +0000 (+0300)
Subject: Fixed inclusion parsing
X-Git-Tag: v1.0.0~9
X-Git-Url: http://www.git.stargrave.org/?a=commitdiff_plain;h=8409556e1c60df3cf30495dd1fae614d78186ca5;p=swg.git

Fixed inclusion parsing
---

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 $_ }