Fixed inclusion parsing

diff --git a/swg b/swg
index b42e7bc20f9f67fa477798b7c2edf85579db8e5c..570720cc9ec7142a3eb24be6b869cbb1fd0f25af 100755 (executable)
--- 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 $_ }