svn commit: samba r2777 - in branches/SAMBA_4_0/source/build/pidl: .

[tpot at samba.org]

Author: tpot
Date: 2004-10-02 06:32:53 +0000 (Sat, 02 Oct 2004)
New Revision: 2777

WebSVN: http://websvn.samba.org/websvn/changeset.php?rep=samba&path=/branches/SAMBA_4_0/source/build/pidl&rev=2777&nolog=1

Log:
Correctly abort if an idl file fails to parse.  Bloody perl...

Modified:
   branches/SAMBA_4_0/source/build/pidl/pidl.pl


Changeset:
Modified: branches/SAMBA_4_0/source/build/pidl/pidl.pl
===================================================================
--- branches/SAMBA_4_0/source/build/pidl/pidl.pl	2004-10-02 05:09:16 UTC (rev 2776)
+++ branches/SAMBA_4_0/source/build/pidl/pidl.pl	2004-10-02 06:32:53 UTC (rev 2777)
@@ -117,7 +117,7 @@
 
 	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";