From 20b73b1309a74eee3fbf37738407584dce63bb78 Mon Sep 17 00:00:00 2001
From: Jelmer Vernooij <jelmer@samba.org>
Date: Mon, 6 Oct 2008 04:54:48 +0200
Subject: Print proper error if include file can't be found.

---
 pidl/lib/Parse/Pidl/ODL.pm | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'pidl/lib/Parse/Pidl')

diff --git a/pidl/lib/Parse/Pidl/ODL.pm b/pidl/lib/Parse/Pidl/ODL.pm
index ad8c76f622..c49cdfb795 100644
--- 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;
-- 
cgit