From 0da6e359880cce4fb98cdf4fcd747ce1a5894b2c Mon Sep 17 00:00:00 2001 From: Jordan Carlin Date: Wed, 26 Jun 2024 07:45:04 -0700 Subject: [PATCH] Fix derivgen.pl to find exact keys --- bin/derivgen.pl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/bin/derivgen.pl b/bin/derivgen.pl index 21ffc7019..dbb856781 100755 --- a/bin/derivgen.pl +++ b/bin/derivgen.pl @@ -96,7 +96,7 @@ foreach my $key (@derivnames) { my @ent = @{$entry}; my $param = $ent[0]; my $value = $ent[1]; - if ($line =~ s/$param\s*=\s*.*;/$param = $value;/) { + if ($line =~ s/\b$param\s*=\s*.*;/$param = $value;/) { $hit{$param} = 1; # print("Hit: new line in $config for $param is $line"); } @@ -130,4 +130,4 @@ sub printref { print join('_', @{$entry}), ', '; } print("\n"); -} \ No newline at end of file +}