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