fix ampersands in group names in generated binding files
This commit is contained in:
parent
22d52876b7
commit
cee1109d9b
@ -280,9 +280,12 @@ while (<SOURCE>) {
|
||||
$b =~ s/SECONDARY/Secondary-/;
|
||||
$b =~ s/TERTIARY/Tertiary-/;
|
||||
$b =~ s/LEVEL4/Level4-/;
|
||||
|
||||
|
||||
$g = $group_names{$gkey};
|
||||
$g =~ s/\\&/&/g;
|
||||
|
||||
$bref = $owner_bindings{$owner};
|
||||
push (@$bref, [ $action, $b, $group_names{$gkey} ]);
|
||||
push (@$bref, [ $action, $b, $g]);
|
||||
}
|
||||
}
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user