From: Sergey Matveev 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 $_ }