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";

Reply via email to