diff options
| author | Aurelien Aptel <aaptel@suse.com> | 2016-02-09 17:12:41 +0100 |
|---|---|---|
| committer | Stefan Metzmacher <metze@samba.org> | 2016-06-20 12:08:21 +0200 |
| commit | 498189087beaf2c52622b55cb3f5c9f411be3346 (patch) | |
| tree | 75b0134f98065ab993952b2c56695364d7f748de /pidl | |
| parent | cafb68fdc4a1e9ba14802a085d08aa98e3e8662e (diff) | |
| download | samba-498189087beaf2c52622b55cb3f5c9f411be3346.tar.gz | |
pidl/ws: remove any starting _ in WS field names
Signed-off-by: Aurelien Aptel <aaptel@suse.com>
Reviewed-by: Stefan Metzmacher <metze@samba.org>
Reviewed-by: David Disseldorp <ddiss@samba.org>
Diffstat (limited to 'pidl')
| -rw-r--r-- | pidl/lib/Parse/Pidl/Wireshark/NDR.pm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/pidl/lib/Parse/Pidl/Wireshark/NDR.pm b/pidl/lib/Parse/Pidl/Wireshark/NDR.pm index c0f6876f598..928e02dc0d4 100644 --- a/pidl/lib/Parse/Pidl/Wireshark/NDR.pm +++ b/pidl/lib/Parse/Pidl/Wireshark/NDR.pm @@ -59,6 +59,7 @@ sub field2name($) { my($field) = shift; + $field =~ s/^(_)*//g; # Remove any starting underscores $field =~ s/_/ /g; # Replace underscores with spaces $field =~ s/(\w+)/\u\L$1/g; # Capitalise each word |