pidl: If STR_NULLTERM we concider it's a string as well

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

diff --git a/pidl/lib/Parse/Pidl/NDR.pm b/pidl/lib/Parse/Pidl/NDR.pm
index d91c324b536ebaf030b56eaded9e5de14eefeadb..db776ae3ef371751806d833b84e4407a74786cc1 100644 (file)
--- a/pidl/lib/Parse/Pidl/NDR.pm
+++ b/pidl/lib/Parse/Pidl/NDR.pm
@@ -943,6 +943,9 @@ sub ContainsString($)
 {
        my ($e) = @_;
 
+       if (property_matches($e, "flag", ".*STR_NULLTERM.*")) {
+               return 1;
+       }
        foreach my $l (@{$e->{LEVELS}}) {
                return 1 if ($l->{TYPE} eq "ARRAY" and $l->{IS_ZERO_TERMINATED});
        }