From fa331f64d1a40350496c7acf68c20cb3fead6eaf Mon Sep 17 00:00:00 2001 From: Matthieu Patou Date: Thu, 3 Oct 2013 09:45:19 -0700 Subject: pidl-wireshark: insure that we have an entire match for the variable name Signed-off-by: Matthieu Patou Reviewed-by: Stefan Metzmacher Autobuild-User(master): Stefan Metzmacher Autobuild-Date(master): Fri Oct 10 00:32:40 CEST 2014 on sn-devel-104 --- 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 aa434d8ad1..10eaa6c95e 100644 --- a/pidl/lib/Parse/Pidl/Wireshark/NDR.pm +++ b/pidl/lib/Parse/Pidl/Wireshark/NDR.pm @@ -624,7 +624,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; -- cgit