svn commit: samba r24452 - in branches/SAMBA_4_0/source/pidl/lib/Parse/Pidl: .

[metze at samba.org]

Author: metze
Date: 2007-08-15 09:18:25 +0000 (Wed, 15 Aug 2007)
New Revision: 24452

WebSVN: http://websvn.samba.org/cgi-bin/viewcvs.cgi?view=rev&root=samba&rev=24452

Log:
bail out instead of only giving a warning on
incorrect idl files

metze
Modified:
   branches/SAMBA_4_0/source/pidl/lib/Parse/Pidl/NDR.pm


Changeset:
Modified: branches/SAMBA_4_0/source/pidl/lib/Parse/Pidl/NDR.pm
===================================================================
--- branches/SAMBA_4_0/source/pidl/lib/Parse/Pidl/NDR.pm	2007-08-15 09:13:51 UTC (rev 24451)
+++ branches/SAMBA_4_0/source/pidl/lib/Parse/Pidl/NDR.pm	2007-08-15 09:18:25 UTC (rev 24452)
@@ -244,15 +244,15 @@
 	}
 
 	if (scalar(@size_is) > 0) {
-		warning($e, "size_is() on non-array element");
+		fatal($e, "size_is() on non-array element");
 	}
 
 	if (scalar(@length_is) > 0) {
-		warning($e, "length_is() on non-array element");
+		fatal($e, "length_is() on non-array element");
 	}
 
 	if (has_property($e, "string")) {
-		warning($e, "string() attribute on non-array element");
+		fatal($e, "string() attribute on non-array element");
 	}
 
 	push (@$order, {
@@ -1142,7 +1142,7 @@
 		($x->{TYPE} eq "INTERFACE") && 
 		    ValidInterface($x);
 		($x->{TYPE} eq "IMPORTLIB") &&
-			warning($x, "importlib() not supported");
+			fatal($x, "importlib() not supported");
 	}
 }