fix ampersands in group names in generated binding files

This commit is contained in:
Paul Davis 2016-06-23 08:37:12 -04:00
parent 22d52876b7
commit cee1109d9b

View File

@ -281,8 +281,11 @@ while (<SOURCE>) {
$b =~ s/TERTIARY/Tertiary-/;
$b =~ s/LEVEL4/Level4-/;
$g = $group_names{$gkey};
$g =~ s/\\&/&amp;/g;
$bref = $owner_bindings{$owner};
push (@$bref, [ $action, $b, $group_names{$gkey} ]);
push (@$bref, [ $action, $b, $g]);
}
}