diff options
| author | Matthieu Patou <mat@matws.net> | 2011-08-05 23:03:29 +0400 |
|---|---|---|
| committer | Matthieu Patou <mat@matws.net> | 2011-08-06 01:33:07 +0400 |
| commit | aea446ba793e1cd3ad1a70efa18aab47e46d45d4 (patch) | |
| tree | ce714d03df9f479bdea6b74c74e3075c53e8bdcf | |
| parent | 5a5f6845db58ad1edfd90210da4b538859da43fc (diff) | |
| download | samba-aea446ba793e1cd3ad1a70efa18aab47e46d45d4.tar.gz samba-aea446ba793e1cd3ad1a70efa18aab47e46d45d4.tar.bz2 samba-aea446ba793e1cd3ad1a70efa18aab47e46d45d4.zip | |
pidl: If STR_NULLTERM we concider it's a string as well
| -rw-r--r-- | pidl/lib/Parse/Pidl/NDR.pm | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/pidl/lib/Parse/Pidl/NDR.pm b/pidl/lib/Parse/Pidl/NDR.pm index d91c324b53..db776ae3ef 100644 --- 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}); } |