pidl: Keep case from fieldnames.

[samba.git] / pidl / lib / Parse / Pidl / Wireshark / NDR.pm

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;
 }