From 14fbb942c77e12b6d79092bb6bf31e54a02e86cd Mon Sep 17 00:00:00 2001
From: "Juergen E. Fischer" <jef@norbit.de>
Date: Tue, 18 Oct 2016 12:03:34 +0200
Subject: [PATCH] qgm2cpp.pl fix

---
 scripts/qgm2cpp.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/scripts/qgm2cpp.pl b/scripts/qgm2cpp.pl
index 19927e390e0..c4889754c6f 100644
--- a/scripts/qgm2cpp.pl
+++ b/scripts/qgm2cpp.pl
@@ -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});