diff options
Diffstat (limited to 'source4')
-rwxr-xr-x | source4/build/pidl/pidl.pl | 3 | ||||
-rw-r--r-- | source4/build/pidl/util.pm | 1 |
2 files changed, 3 insertions, 1 deletions
diff --git a/source4/build/pidl/pidl.pl b/source4/build/pidl/pidl.pl index c43d042b57..b390ba7728 100755 --- a/source4/build/pidl/pidl.pl +++ b/source4/build/pidl/pidl.pl @@ -124,8 +124,9 @@ sub process_file($) } } else { $pidl = util::LoadStructure($pidl_file); + defined $pidl || die "Failed to load $pidl_file - maybe you need --parse\n"; } - + if ($opt_dump) { print IdlDump::Dump($pidl); } diff --git a/source4/build/pidl/util.pm b/source4/build/pidl/util.pm index 2a4c0de74d..d09347f22d 100644 --- a/source4/build/pidl/util.pm +++ b/source4/build/pidl/util.pm @@ -10,6 +10,7 @@ sub LoadStructure($) { my $f = shift; my $contents = FileLoad($f); + defined $contents || return undef; return eval "$contents"; } |