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

metze at samba.org metze at samba.org
Fri Aug 17 09:12:13 GMT 2007


Author: metze
Date: 2007-08-17 09:12:13 +0000 (Fri, 17 Aug 2007)
New Revision: 24511

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

Log:
pass the correct thing to fatal()

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


Changeset:
Modified: branches/SAMBA_4_0/source/pidl/lib/Parse/Pidl/Samba3/ClientNDR.pm
===================================================================
--- branches/SAMBA_4_0/source/pidl/lib/Parse/Pidl/Samba3/ClientNDR.pm	2007-08-17 09:09:04 UTC (rev 24510)
+++ branches/SAMBA_4_0/source/pidl/lib/Parse/Pidl/Samba3/ClientNDR.pm	2007-08-17 09:12:13 UTC (rev 24511)
@@ -85,7 +85,7 @@
 		next unless (grep(/out/, @{$e->{DIRECTION}}));
 		my $level = 0;
 
-		fatal($e, "[out] argument is not a pointer or array") if ($e->{LEVELS}[0]->{TYPE} ne "POINTER" and $e->{LEVELS}[0]->{TYPE} ne "ARRAY");
+		fatal($e->{ORIGINAL}, "[out] argument is not a pointer or array") if ($e->{LEVELS}[0]->{TYPE} ne "POINTER" and $e->{LEVELS}[0]->{TYPE} ne "ARRAY");
 
 		if ($e->{LEVELS}[0]->{TYPE} eq "POINTER") {
 			$level = 1;



More information about the samba-cvs mailing list