mirror of
https://github.com/samba-team/samba.git
synced 2025-01-10 01:18:15 +03:00
r363: nicer error handling in pidl
This commit is contained in:
parent
b2ebaf95b7
commit
cafc8a5e76
@ -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);
|
||||
}
|
||||
|
@ -10,6 +10,7 @@ sub LoadStructure($)
|
||||
{
|
||||
my $f = shift;
|
||||
my $contents = FileLoad($f);
|
||||
defined $contents || return undef;
|
||||
return eval "$contents";
|
||||
}
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user