From: Stefan Metzmacher <metze@samba.org>
Date: Mon, 4 Nov 2013 11:12:24 +0000 (+0100)
Subject: Revert "WHY??? pidl-wireshark: clean case name as they can have no valid char for... 
X-Git-Url: http://git.samba.org/?p=metze%2Fsamba%2Fwip.git;a=commitdiff_plain;h=8677f6ec9ae277ddc96358c00910409c43cd89ea

Revert "WHY??? pidl-wireshark: clean case name as they can have no valid char for variable names"

This reverts commit f4475af36e853041cd18d4f2218cf96c929b5cdc.
---

diff --git a/pidl/lib/Parse/Pidl/Wireshark/NDR.pm b/pidl/lib/Parse/Pidl/Wireshark/NDR.pm
index 216efc7b462b..8740f154ebae 100644
--- a/pidl/lib/Parse/Pidl/Wireshark/NDR.pm
+++ b/pidl/lib/Parse/Pidl/Wireshark/NDR.pm
@@ -758,10 +758,7 @@ sub Union($$$$)
 	foreach (@{$e->{ELEMENTS}}) {
 		$res.="\n\t\t$_->{CASE}:\n";
 		if ($_->{TYPE} ne "EMPTY") {
-			my $case_name = $_->{CASE};
-			$case_name =~ s/case //;
-			$case_name =~ tr/|)(<//d;
-			$res.="\t\t\t".$self->Element($_, "${name}_val${case_name}", $ifname, undef)."\n";
+			$res.="\t\t\t".$self->Element($_, $name, $ifname, undef)."\n";
 		}
 		$res.="\t\tbreak;\n";
 	}