Fix helper.pl. [skip ci]

karel-m · sjaeckel · commit 66925c259c49 · 2026-04-13T19:48:05.000+02:00
Fix matching of other uses of a descriptor type, besides their declaration.
diff --git a/helper.pl b/helper.pl
@@ -108,7 +108,7 @@ sub check_descriptor {
   my @descriptors;
   find({ wanted => sub { push @src, $_ if $_ =~ /\.c$/ }, no_chdir=>1 }, "./src/${which}/");
   for my $f (@src) {
-    my @n = map { my $x = $_; $x =~ s/^.*?ltc_${what}_descriptor\s+(\S+).*$/$1/; $x } grep { $_ =~ /ltc_${what}_descriptor/ } split /\n/, read_file($f);
+    my @n = map { my $x = $_; $x =~ s/^.*?ltc_${what}_descriptor\s+(\S+).*$/$1/; $x } grep { $_ =~ /^[^()]*ltc_${what}_descriptor/ } split /\n/, read_file($f);
     push @descriptors, @n if @n;
   }
   my $fails = 0;

Original file line number	Diff line number	Diff line change
`@@ -108,7 +108,7 @@ sub check_descriptor {`
`108`	`108`	`my @descriptors;`
`109`	`109`	`find({ wanted => sub { push @src, $_ if $_ =~ /\.c$/ }, no_chdir=>1 }, "./src/${which}/");`
`110`	`110`	`for my $f (@src) {`
`111`		`- my @n = map { my $x = $_; $x =~ s/^.?ltc_${what}_descriptor\s+(\S+).$/$1/; $x } grep { $_ =~ /ltc_${what}_descriptor/ } split /\n/, read_file($f);`
	`111`	`+ my @n = map { my $x = $_; $x =~ s/^.?ltc_${what}_descriptor\s+(\S+).$/$1/; $x } grep { $_ =~ /^[^()]*ltc_${what}_descriptor/ } split /\n/, read_file($f);`
`112`	`112`	`push @descriptors, @n if @n;`
`113`	`113`	`}`
`114`	`114`	`my $fails = 0;`