summaryrefslogtreecommitdiff
path: root/source4/build/pidl/pidl.pl
diff options
context:
space:
mode:
authorTim Potter <tpot@samba.org>2004-10-02 06:32:53 +0000
committerGerald (Jerry) Carter <jerry@samba.org>2007-10-10 12:59:32 -0500
commit91346236c2b88e05154de33bf15544a75bb4e154 (patch)
tree04d350d2cadb7c600c2a933dd5a4082dc27bf871 /source4/build/pidl/pidl.pl
parent6185fbad47e63f64599582ec9246f2df7c416942 (diff)
downloadsamba-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-xsource4/build/pidl/pidl.pl2
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";