>From f926600dbe8730e0ebfb416207fd33638b2c7772 Mon Sep 17 00:00:00 2001 From: Matthieu Patou Date: Thu, 3 Oct 2013 09:45:19 -0700 Subject: [PATCH 13/13] pidl-wireshark: insure that we have an entire match for the variable name Signed-off-by: Matthieu Patou --- pidl/lib/Parse/Pidl/Wireshark/NDR.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/pidl/lib/Parse/Pidl/Wireshark/NDR.pm b/pidl/lib/Parse/Pidl/Wireshark/NDR.pm index 06e9937..fe94880 100644 --- a/pidl/lib/Parse/Pidl/Wireshark/NDR.pm +++ b/pidl/lib/Parse/Pidl/Wireshark/NDR.pm @@ -660,7 +660,7 @@ sub Struct($$$$) my $switch_info = undef; my $v = $_->{NAME}; - if (scalar(grep {/$v/} keys(%$varswitchs)) == 1) { + if (scalar(grep {/^$v$/} keys(%$varswitchs)) == 1) { # This element is one of the switch attribute my $switch_dt = getType($_->{TYPE}); my $switch_type; -- 1.8.1.2