From f97f11eab25f0c294ff02b3c4485d7a0a91b5501 Mon Sep 17 00:00:00 2001
From: Jelmer Vernooij <jelmer@samba.org>
Date: Wed, 3 Jan 2007 15:34:01 +0000
Subject: r20511: Combine warnings/errors/fatal functions and move them to
 Parse::Pidl. (This used to be commit
 959adfd0a682a4894c3bdd4ae9c6fc3ebfeeef1f)

---
 source4/pidl/lib/Parse/Pidl/Samba4/TDR.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'source4/pidl/lib/Parse/Pidl/Samba4/TDR.pm')

diff --git a/source4/pidl/lib/Parse/Pidl/Samba4/TDR.pm b/source4/pidl/lib/Parse/Pidl/Samba4/TDR.pm
index 592961dee2..bc8d27a283 100644
--- a/source4/pidl/lib/Parse/Pidl/Samba4/TDR.pm
+++ b/source4/pidl/lib/Parse/Pidl/Samba4/TDR.pm
@@ -4,6 +4,7 @@
 # released under the GNU GPL
 
 package Parse::Pidl::Samba4::TDR;
+use Parse::Pidl qw(fatal);
 use Parse::Pidl::Util qw(has_property ParseExpr is_constant);
 use Parse::Pidl::Samba4 qw(is_intree choose_header);
 
@@ -20,7 +21,6 @@ sub indent() { $tabs.="\t"; }
 sub deindent() { $tabs = substr($tabs, 1); }
 sub pidl($) { $ret .= $tabs.(shift)."\n"; }
 sub pidl_hdr($) { $ret_hdr .= (shift)."\n"; }
-sub fatal($$) { my ($e,$s) = @_; die("$e->{FILE}:$e->{LINE}: $s\n"); }
 sub typearg($) { 
 	my $t = shift; 
 	return(", const char *name") if ($t eq "print");
-- 
cgit