pidl:NDR: correctly handle bracket arrays with 'string'

metze

diff --git a/pidl/lib/Parse/Pidl/NDR.pm b/pidl/lib/Parse/Pidl/NDR.pm
index c1ac6001dac87379690545f0e1b1ea35585b1302..20f52bf9d5298c8f44acc2f9cbc23230018a67b1 100644 (file)
--- 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});