pidl: Keep case from fieldnames.

Change-Id: I5626cfa0487cc88eb65cc349c05ae1762bc953f4
Signed-off-by: Guenther Deschner <gd@samba.org>
Reviewed-on: https://code.wireshark.org/review/16720
Petri-Dish: Michael Mann <mmann78@netscape.net>
Tested-by: Petri Dish Buildbot <buildbot-no-reply@wireshark.org>
Reviewed-by: Michael Mann <mmann78@netscape.net>
Reviewed-by: Stefan Metzmacher <metze@samba.org>

diff --git a/pidl/lib/Parse/Pidl/Wireshark/NDR.pm b/pidl/lib/Parse/Pidl/Wireshark/NDR.pm
index 21ef714c4208c74d1aea7f92effc25233dfd3d28..49b0c2c33ba1080113655f7052411beb56404fe1 100644 (file)
--- a/pidl/lib/Parse/Pidl/Wireshark/NDR.pm
+++ b/pidl/lib/Parse/Pidl/Wireshark/NDR.pm
@@ -61,7 +61,7 @@ sub field2name($)
 
        $field =~ s/^(_)*//g;           # Remove any starting underscores
        $field =~ s/_/ /g;              # Replace underscores with spaces
-       $field =~ s/(\w+)/\u\L$1/g;     # Capitalise each word
+       $field =~ s/(\w+)/\u$1/g;       # Capitalise each word
 
        return $field;
 }