diff options
| author | Jelmer Vernooij <jelmer@samba.org> | 2008-10-06 04:54:48 +0200 |
|---|---|---|
| committer | Jelmer Vernooij <jelmer@samba.org> | 2008-10-08 02:18:59 +0200 |
| commit | 20b73b1309a74eee3fbf37738407584dce63bb78 (patch) | |
| tree | 871d3e691833565251089c0701df652314d44005 | |
| parent | 41ee314438fe15d3bdd6a86ad5acf953c255011c (diff) | |
| download | samba-20b73b1309a74eee3fbf37738407584dce63bb78.tar.gz samba-20b73b1309a74eee3fbf37738407584dce63bb78.tar.bz2 samba-20b73b1309a74eee3fbf37738407584dce63bb78.zip | |
Print proper error if include file can't be found.
| -rw-r--r-- | pidl/lib/Parse/Pidl/ODL.pm | 4 |
1 files changed, 4 insertions, 0 deletions
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; |