Print proper error if include file can't be found.

diff --git a/pidl/lib/Parse/Pidl/ODL.pm b/pidl/lib/Parse/Pidl/ODL.pm
index ad8c76f62263634ca92836551fee72488e939629..c49cdfb795cac9139dd3cfbf548a70d4f18a5ceb 100644 (file)
--- a/pidl/lib/Parse/Pidl/ODL.pm
+++ b/pidl/lib/Parse/Pidl/ODL.pm
@@ -57,6 +57,10 @@ sub ODL2IDL
                if ($x->{TYPE} eq "IMPORT") {
                        foreach my $idl_file (@{$x->{PATHS}}) {
                                $idl_file = unmake_str($idl_file);
+                               unless (-f "$basedir/$idl_file") {
+                                       error($x, "Unable to open include file `$idl_file'");
+                                       next;
+                               }
                                my $podl = Parse::Pidl::IDL::parse_file("$basedir/$idl_file", $opt_incdirs);
                                if (defined(@$podl)) {
                                        require Parse::Pidl::Typelist;