diff options
| author | Jelmer Vernooij <jelmer@samba.org> | 2005-07-10 01:16:02 +0000 |
|---|---|---|
| committer | Gerald (Jerry) Carter <jerry@samba.org> | 2007-10-10 13:19:29 -0500 |
| commit | 514ce32a894585b66d7dc276d10fe6f4b525e02b (patch) | |
| tree | c8d5f194aba2ba1ca2738ca9d6d14dfbe51c2433 /source4/build/pidl/Parse/Pidl/Validator.pm | |
| parent | 76ecf81428c161a98a5621b55a64cb8515f80585 (diff) | |
| download | samba-514ce32a894585b66d7dc276d10fe6f4b525e02b.tar.gz samba-514ce32a894585b66d7dc276d10fe6f4b525e02b.tar.bz2 samba-514ce32a894585b66d7dc276d10fe6f4b525e02b.zip | |
r8274: Export some more symbols.
(This used to be commit d1f754a0a34c5938579a605b4f113100e14bac3d)
Diffstat (limited to 'source4/build/pidl/Parse/Pidl/Validator.pm')
| -rw-r--r-- | source4/build/pidl/Parse/Pidl/Validator.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/source4/build/pidl/Parse/Pidl/Validator.pm b/source4/build/pidl/Parse/Pidl/Validator.pm index 606d14e08b..1a551c562a 100644 --- a/source4/build/pidl/Parse/Pidl/Validator.pm +++ b/source4/build/pidl/Parse/Pidl/Validator.pm @@ -6,6 +6,7 @@ package Parse::Pidl::Validator; use Parse::Pidl::Util qw(has_property); +use Parse::Pidl::Typelist qw(hasType getType); use strict; @@ -155,7 +156,7 @@ sub ValidProperties($$) sub mapToScalar($) { my $t = shift; - my $ti = Parse::Pidl::Typelist::getType($t); + my $ti = getType($t); if (not defined ($ti)) { return undef; @@ -185,7 +186,7 @@ sub ValidElement($) # Check whether switches are used correctly. if (my $switch = has_property($e, "switch_is")) { my $e2 = find_sibling($e, $switch); - my $type = Parse::Pidl::Typelist::getType($e->{TYPE}); + my $type = getType($e->{TYPE}); if (defined($type) and $type->{DATA}->{TYPE} ne "UNION") { fatal($e, el_name($e) . ": switch_is() used on non-union type $e->{TYPE} which is a $type->{DATA}->{TYPE}"); |