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 (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;
|
||||||
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user