qgm2cpp.pl fix

This commit is contained in:
Juergen E. Fischer 2016-10-18 12:03:34 +02:00
parent 2fc418016f
commit 14fbb942c7

View File

@ -44,7 +44,7 @@ sub parse {
if $label =~ /^\s+/ || $label =~ /\s+$/ || $label !~ /^[A-Z0-9(]/;
$label =~ s/^\s+//;
$label =~ s/\s+$//;
$label =~ ucfirst $label;
$label = ucfirst $label;
$labels{$label} = 1;
} else {
parse($a->{$b});