mtr: fix --source lines detection

vuvova · vuvova · commit f217c7618926 · 2022-03-14T08:55:59.000+01:00
mysqltest allows leading spaces before `--`, so mtr should too
diff --git a/mysql-test/lib/mtr_cases.pm b/mysql-test/lib/mtr_cases.pm
@@ -1036,7 +1036,7 @@ sub get_tags_from_file($$) {
     }
 
     # Check for a sourced include file.
-    if ($line =~ /^(--)?[[:space:]]*source[[:space:]]+([^;[:space:]]+)/)
+    if ($line =~ /^[[:space:]]*(--)?[[:space:]]*source[[:space:]]+([^;[:space:]]+)/)
     {
       my $include= $2;
       # The rules below must match open_file() function of mysqltest.cc

Original file line number	Diff line number	Diff line change
`@@ -1036,7 +1036,7 @@ sub get_tags_from_file($$) {`
`1036`	`1036`	`}`
`1037`	`1037`
`1038`	`1038`	`# Check for a sourced include file.`
`1039`		`- if ($line =~ /^(--)?[[:space:]]*source[[:space:]]+([^;[:space:]]+)/)`
	`1039`	`+ if ($line =~ /^[[:space:]](--)?[[:space:]]source[[:space:]]+([^;[:space:]]+)/)`
`1040`	`1040`	`{`
`1041`	`1041`	`my $include= $2;`
`1042`	`1042`	`# The rules below must match open_file() function of mysqltest.cc`