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

metze

diff --git a/pidl/lib/Parse/Pidl/NDR.pm b/pidl/lib/Parse/Pidl/NDR.pm
index 20f52bf9d5298c8f44acc2f9cbc23230018a67b1..2358a25956397517fa1fcdc483b90ad4e115801b 100644 (file)
--- a/pidl/lib/Parse/Pidl/NDR.pm
+++ b/pidl/lib/Parse/Pidl/NDR.pm
@@ -125,7 +125,7 @@ sub GetElementLevelTable($$)
                if ($d eq "*") {
                        $is_conformant = 1;
                        if ($size = shift @size_is) {
-                               if (has_property($e, "string")) {
+                               if ($e->{POINTERS} < 1 and has_property($e, "string")) {
                                        $is_string = 1;
                                        delete($e->{PROPERTIES}->{string});
                                }