summaryrefslogtreecommitdiff
path: root/pidl/lib/Parse/Pidl/ODL.pm
diff options
context:
space:
mode:
Diffstat (limited to 'pidl/lib/Parse/Pidl/ODL.pm')
-rw-r--r--pidl/lib/Parse/Pidl/ODL.pm4
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) {