diff options
author | Andrew Tridgell <tridge@samba.org> | 2003-11-14 13:15:20 +0000 |
---|---|---|
committer | Andrew Tridgell <tridge@samba.org> | 2003-11-14 13:15:20 +0000 |
commit | 492282316795af676b249fcdee51759866cc8129 (patch) | |
tree | f3b94d900da200a90d2536621a3ea4dce34c1429 /source4/build/pidl/pidl.pl | |
parent | 15b258051cf3bbf8592eac0fd5e3d747d7172101 (diff) | |
download | samba-492282316795af676b249fcdee51759866cc8129.tar.gz samba-492282316795af676b249fcdee51759866cc8129.tar.bz2 samba-492282316795af676b249fcdee51759866cc8129.zip |
* make pidl.pl exit with an error on a parse error
* fixed a buffers/scalars bug in structures
(This used to be commit e66daf527357c65228db55a3d3319a0c20d8f51c)
Diffstat (limited to 'source4/build/pidl/pidl.pl')
-rwxr-xr-x | source4/build/pidl/pidl.pl | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/source4/build/pidl/pidl.pl b/source4/build/pidl/pidl.pl index cd2ad9d7fc..2b856b2e47 100755 --- a/source4/build/pidl/pidl.pl +++ b/source4/build/pidl/pidl.pl @@ -111,6 +111,7 @@ my($pidl_file) = util::ChangeExtension($opt_output, "pidl"); if ($opt_parse) { print "Generating $pidl_file from $idl_file\n"; my($idl) = IdlParse($idl_file); + defined $idl || die "Failed to parse $idl_file"; util::SaveStructure($pidl_file, $idl) || die "Failed to save $pidl_file"; } |