diff options
| author | Tim Potter <tpot@samba.org> | 2004-10-02 06:32:53 +0000 |
|---|---|---|
| committer | Gerald (Jerry) Carter <jerry@samba.org> | 2007-10-10 12:59:32 -0500 |
| commit | 91346236c2b88e05154de33bf15544a75bb4e154 (patch) | |
| tree | 04d350d2cadb7c600c2a933dd5a4082dc27bf871 /source4/build/pidl/pidl.pl | |
| parent | 6185fbad47e63f64599582ec9246f2df7c416942 (diff) | |
| download | samba-91346236c2b88e05154de33bf15544a75bb4e154.tar.gz samba-91346236c2b88e05154de33bf15544a75bb4e154.tar.bz2 samba-91346236c2b88e05154de33bf15544a75bb4e154.zip | |
r2777: Correctly abort if an idl file fails to parse. Bloody perl...
(This used to be commit 35ff140b43b353a8848e417bb309046605e98085)
Diffstat (limited to 'source4/build/pidl/pidl.pl')
| -rwxr-xr-x | source4/build/pidl/pidl.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/source4/build/pidl/pidl.pl b/source4/build/pidl/pidl.pl index fddd11bd8d..237e213e23 100755 --- a/source4/build/pidl/pidl.pl +++ b/source4/build/pidl/pidl.pl @@ -117,7 +117,7 @@ sub process_file($) if ($opt_parse) { $pidl = IdlParse($idl_file); - defined $pidl || die "Failed to parse $idl_file"; + defined @$pidl || die "Failed to parse $idl_file"; IdlValidator::Validate($pidl); if ($opt_keep && !util::SaveStructure($pidl_file, $pidl)) { die "Failed to save $pidl_file\n"; |