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

[metze at samba.org]

Author: metze
Date: 2007-08-17 11:24:25 +0000 (Fri, 17 Aug 2007)
New Revision: 24515

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

Log:
use fatal() wrapper instead of die() directly

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


Changeset:
Modified: branches/SAMBA_4_0/source/pidl/lib/Parse/Pidl/Samba4/Header.pm
===================================================================
--- branches/SAMBA_4_0/source/pidl/lib/Parse/Pidl/Samba4/Header.pm	2007-08-17 11:09:46 UTC (rev 24514)
+++ branches/SAMBA_4_0/source/pidl/lib/Parse/Pidl/Samba4/Header.pm	2007-08-17 11:24:25 UTC (rev 24515)
@@ -7,6 +7,7 @@
 package Parse::Pidl::Samba4::Header;
 
 use strict;
+use Parse::Pidl qw(fatal);
 use Parse::Pidl::Typelist qw(mapTypeName scalar_is_reference);
 use Parse::Pidl::Util qw(has_property is_constant);
 use Parse::Pidl::Samba4 qw(is_intree);
@@ -149,13 +150,13 @@
 				$name = $1;
 				$value = $2;
 				$with_val = 1;
-				die ("you can't mix enum member with values and without values!")
+				fatal($e->{ORIGINAL}, "you can't mix enum member with values and without values!")
 					unless ($without_val == 0);
 			} else {
 				$name = $t;
 				$value = $count++;
 				$without_val = 1;
-				die ("you can't mix enum member with values and without values!")
+				fatal($e->{ORIGINAL}, "you can't mix enum member with values and without values!")
 					unless ($with_val == 0);
 			}
 			pidl "#define $name ( $value )\n";