Also check include dirs for IDL files.

diff --git a/pidl/lib/Parse/Pidl/ODL.pm b/pidl/lib/Parse/Pidl/ODL.pm
index c49cdfb795cac9139dd3cfbf548a70d4f18a5ceb..b323a6a98aad143b7b6409bbc4c8a122c918b481 100644 (file)
--- a/pidl/lib/Parse/Pidl/ODL.pm
+++ b/pidl/lib/Parse/Pidl/ODL.pm
@@ -57,11 +57,18 @@ sub ODL2IDL
                if ($x->{TYPE} eq "IMPORT") {
                        foreach my $idl_file (@{$x->{PATHS}}) {
                                $idl_file = unmake_str($idl_file);
-                               unless (-f "$basedir/$idl_file") {
+                               my $idl_path = undef;
+                               foreach ($basedir, @$opt_incdirs) {
+                                       if (-f "$_/$idl_file") {
+                                               $idl_path = "$_/$idl_file";
+                                               last;
+                                       }
+                               }
+                               unless ($idl_path) {
                                        error($x, "Unable to open include file `$idl_file'");
                                        next;
                                }
-                               my $podl = Parse::Pidl::IDL::parse_file("$basedir/$idl_file", $opt_incdirs);
+                               my $podl = Parse::Pidl::IDL::parse_file($idl_path, $opt_incdirs);
                                if (defined(@$podl)) {
                                        require Parse::Pidl::Typelist;
 
@@ -74,7 +81,7 @@ sub ODL2IDL
                                                }
                                        }
                                } else {
-                                       error($x, "Failed to parse $idl_file");
+                                       error($x, "Failed to parse $idl_path");
                                }
                        }
                }