pidl: handle hyper attribute for wireshark
[kai/samba-autobuild/.git] / pidl / lib / Parse / Pidl / ODL.pm
index b323a6a98aad143b7b6409bbc4c8a122c918b481..74d9ac7c04d9642c7e2d5138e2b8a125963439b8 100644 (file)
@@ -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) {