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