diff options
| author | Jelmer Vernooij <jelmer@samba.org> | 2007-01-09 15:50:36 +0000 |
|---|---|---|
| committer | Gerald (Jerry) Carter <jerry@samba.org> | 2007-10-10 14:37:18 -0500 |
| commit | bf39b5e5929449b7ef8685b6c7737efd3a31843b (patch) | |
| tree | e94bbccf584e68d61122effbc385ca602b6e42ee /source4/pidl/lib/Parse/Pidl | |
| parent | eccb2d16dfb584ce4c38cd08235b9ab5eca6072c (diff) | |
| download | samba-bf39b5e5929449b7ef8685b6c7737efd3a31843b.tar.gz samba-bf39b5e5929449b7ef8685b6c7737efd3a31843b.tar.bz2 samba-bf39b5e5929449b7ef8685b6c7737efd3a31843b.zip | |
r20631: Add some tests for the ndr parser.
(This used to be commit ded25eca701b8e3e0e13e7ef64d5511d8953eb0d)
Diffstat (limited to 'source4/pidl/lib/Parse/Pidl')
| -rw-r--r-- | source4/pidl/lib/Parse/Pidl/NDR.pm | 3 | ||||
| -rw-r--r-- | source4/pidl/lib/Parse/Pidl/Util.pm | 2 |
2 files changed, 3 insertions, 2 deletions
diff --git a/source4/pidl/lib/Parse/Pidl/NDR.pm b/source4/pidl/lib/Parse/Pidl/NDR.pm index f8cae5665f..462e577cdd 100644 --- a/source4/pidl/lib/Parse/Pidl/NDR.pm +++ b/source4/pidl/lib/Parse/Pidl/NDR.pm @@ -35,6 +35,7 @@ use vars qw($VERSION); $VERSION = '0.01'; @ISA = qw(Exporter); @EXPORT = qw(GetPrevLevel GetNextLevel ContainsDeferred ContainsString); +@EXPORT_OK = qw(GetElementLevelTable ParseElement); use strict; use Parse::Pidl qw(warning fatal); @@ -837,7 +838,7 @@ sub ValidProperties($$) return unless defined $e->{PROPERTIES}; foreach my $key (keys %{$e->{PROPERTIES}}) { - fatal($e, el_name($e) . ": unknown property '$key'") + warning($e, el_name($e) . ": unknown property '$key'") unless defined($property_list{$key}); fatal($e, el_name($e) . ": property '$key' not allowed on '$t'") diff --git a/source4/pidl/lib/Parse/Pidl/Util.pm b/source4/pidl/lib/Parse/Pidl/Util.pm index 11e738fd13..35338492dd 100644 --- a/source4/pidl/lib/Parse/Pidl/Util.pm +++ b/source4/pidl/lib/Parse/Pidl/Util.pm @@ -6,7 +6,7 @@ package Parse::Pidl::Util; require Exporter; @ISA = qw(Exporter); -@EXPORT = qw(has_property property_matches ParseExpr is_constant make_str print_uuid); +@EXPORT = qw(has_property property_matches ParseExpr is_constant make_str print_uuid MyDumper); use vars qw($VERSION); $VERSION = '0.01'; |