From 66925c259c49ce7cdd456db72a0e2d5995624cec Mon Sep 17 00:00:00 2001 From: Karel Miko Date: Mon, 13 Apr 2026 19:21:38 +0200 Subject: [PATCH] Fix `helper.pl`. [skip ci] Fix matching of other uses of a descriptor type, besides their declaration. --- helper.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/helper.pl b/helper.pl index 9198522e..8a8824a1 100755 --- 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;