pidl: Add a helper function to determine whether a type is a string type

[samba.git] / pidl / lib / Parse / Pidl / Samba4 / NDR / Client.pm

diff --git a/pidl/lib/Parse/Pidl/Samba4/NDR/Client.pm b/pidl/lib/Parse/Pidl/Samba4/NDR/Client.pm
index 58ec389a9f3a3cc0cfefff06b074aeb49ddf753c..84e2bebbb894a50e64fea45e2c523628bad1ca1e 100644 (file)
--- a/pidl/lib/Parse/Pidl/Samba4/NDR/Client.pm
+++ b/pidl/lib/Parse/Pidl/Samba4/NDR/Client.pm
@@ -763,8 +763,8 @@ sub ParseFunction($$$)
                # TODO: make this fatal at NDR level
                if ($e->{LEVELS}[0]->{TYPE} eq "POINTER") {
                        if ($e->{LEVELS}[1]->{TYPE} eq "DATA" and
-                           $e->{LEVELS}[1]->{DATA_TYPE} eq "string") {
-                               $reason = "is a pointer to type 'string'";
+                           Parse::Pidl::Typelist::is_string_type($e->{LEVELS}[1]->{DATA_TYPE})) {
+                               $reason = "is a pointer to a string type";
                        } elsif ($e->{LEVELS}[1]->{TYPE} eq "ARRAY" and
                                 $e->{LEVELS}[1]->{IS_ZERO_TERMINATED}) {
                                next;