mirror of
https://github.com/samba-team/samba.git
synced 2025-01-25 06:04:04 +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 {
|
} else {
|
||||||
$pidl = util::LoadStructure($pidl_file);
|
$pidl = util::LoadStructure($pidl_file);
|
||||||
|
defined $pidl || die "Failed to load $pidl_file - maybe you need --parse\n";
|
||||||
}
|
}
|
||||||
|
|
||||||
if ($opt_dump) {
|
if ($opt_dump) {
|
||||||
print IdlDump::Dump($pidl);
|
print IdlDump::Dump($pidl);
|
||||||
}
|
}
|
||||||
|
@ -10,6 +10,7 @@ sub LoadStructure($)
|
|||||||
{
|
{
|
||||||
my $f = shift;
|
my $f = shift;
|
||||||
my $contents = FileLoad($f);
|
my $contents = FileLoad($f);
|
||||||
|
defined $contents || return undef;
|
||||||
return eval "$contents";
|
return eval "$contents";
|
||||||
}
|
}
|
||||||
|
|
||||||
|
Loading…
x
Reference in New Issue
Block a user