fix gonito extraction
This commit is contained in:
parent
4bbe26b623
commit
ea9d189175
@ -10,7 +10,11 @@ for my $filepath (@ARGV) {
|
||||
|
||||
while (my $line=<$ih>) {
|
||||
while ($line =~ m<\\gonito(?:barescore|score|entry)\{([^\}]+)\}>g) {
|
||||
$found{$1} = 1;
|
||||
my $k = $1;
|
||||
|
||||
if ($k ne '#1') {
|
||||
$found{$k} = 1;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user