diff options
| author | Jelmer Vernooij <jelmer@samba.org> | 2008-12-22 01:51:38 +0100 |
|---|---|---|
| committer | Jelmer Vernooij <jelmer@samba.org> | 2008-12-22 01:51:38 +0100 |
| commit | 2c58c9497cb6a15d03626864585f0437949ee6f6 (patch) | |
| tree | 85a267c746e06f3cde94dc91c12aa53e7ab08b4a /pidl/lib/Parse/Pidl/ODL.pm | |
| parent | 9a7c64f1dce7560c94df99c45eb5c75903cf0e6b (diff) | |
| download | samba-2c58c9497cb6a15d03626864585f0437949ee6f6.tar.gz samba-2c58c9497cb6a15d03626864585f0437949ee6f6.tar.bz2 samba-2c58c9497cb6a15d03626864585f0437949ee6f6.zip | |
Import types from other Python mechanisms using the Python import mechanism, to ensure they are initialized.
Diffstat (limited to 'pidl/lib/Parse/Pidl/ODL.pm')
| -rw-r--r-- | pidl/lib/Parse/Pidl/ODL.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/pidl/lib/Parse/Pidl/ODL.pm b/pidl/lib/Parse/Pidl/ODL.pm index b323a6a98a..74d9ac7c04 100644 --- a/pidl/lib/Parse/Pidl/ODL.pm +++ b/pidl/lib/Parse/Pidl/ODL.pm @@ -8,6 +8,7 @@ use Parse::Pidl qw(error); use Parse::Pidl::IDL; use Parse::Pidl::Util qw(has_property unmake_str); use Parse::Pidl::Typelist qw(hasType getType); +use File::Basename; use strict; use vars qw($VERSION); @@ -71,8 +72,9 @@ sub ODL2IDL my $podl = Parse::Pidl::IDL::parse_file($idl_path, $opt_incdirs); if (defined(@$podl)) { require Parse::Pidl::Typelist; + my $basename = basename($idl_path, ".idl"); - Parse::Pidl::Typelist::LoadIdl($podl); + Parse::Pidl::Typelist::LoadIdl($podl, $basename); my $pidl = ODL2IDL($podl, $basedir, $opt_incdirs); foreach my $y (@$pidl) { |