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

This reverts commit f4475af36e853041cd18d4f2218cf96c929b5cdc.

diff --git a/pidl/lib/Parse/Pidl/Wireshark/NDR.pm b/pidl/lib/Parse/Pidl/Wireshark/NDR.pm
index 216efc7b462b9b157c5eca9b1c730968c00ddd53..8740f154ebae759dfedd5111a49eb2aab59922a8 100644 (file)
--- 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";
        }