From 0a7f749bc80d9846b97cd22cd503473a205aaafd Mon Sep 17 00:00:00 2001 From: Stefan Metzmacher Date: Thu, 5 Aug 2010 16:10:37 +0200 Subject: pidl:NDR: correctly handle bracket arrays with 'string' metze --- pidl/lib/Parse/Pidl/NDR.pm | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'pidl/lib/Parse') diff --git a/pidl/lib/Parse/Pidl/NDR.pm b/pidl/lib/Parse/Pidl/NDR.pm index c1ac6001da..20f52bf9d5 100644 --- a/pidl/lib/Parse/Pidl/NDR.pm +++ b/pidl/lib/Parse/Pidl/NDR.pm @@ -125,6 +125,10 @@ sub GetElementLevelTable($$) if ($d eq "*") { $is_conformant = 1; if ($size = shift @size_is) { + if (has_property($e, "string")) { + $is_string = 1; + delete($e->{PROPERTIES}->{string}); + } } elsif ((scalar(@size_is) == 0) and has_property($e, "string")) { $is_string = 1; delete($e->{PROPERTIES}->{string}); -- cgit