fix gonito extraction

This commit is contained in:
Filip Gralinski 2024-09-07 11:43:19 +02:00
parent 4bbe26b623
commit ea9d189175

View File

@ -10,7 +10,11 @@ for my $filepath (@ARGV) {
while (my $line=<$ih>) { while (my $line=<$ih>) {
while ($line =~ m<\\gonito(?:barescore|score|entry)\{([^\}]+)\}>g) { while ($line =~ m<\\gonito(?:barescore|score|entry)\{([^\}]+)\}>g) {
$found{$1} = 1; my $k = $1;
if ($k ne '#1') {
$found{$k} = 1;
}
} }
} }