svn commit: samba r26695 - in
branches/SAMBA_4_0/source/pidl/lib/Parse/Pidl/Samba3: .
gd at samba.org
gd at samba.org
Tue Jan 8 17:02:53 GMT 2008
Author: gd
Date: 2008-01-08 17:02:53 +0000 (Tue, 08 Jan 2008)
New Revision: 26695
WebSVN: http://websvn.samba.org/cgi-bin/viewcvs.cgi?view=rev&root=samba&rev=26695
Log:
Cosmetic fix for pidl generated samba3 client code.
Guenther
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 2008-01-08 14:27:40 UTC (rev 26694)
+++ branches/SAMBA_4_0/source/pidl/lib/Parse/Pidl/Samba3/ClientNDR.pm 2008-01-08 17:02:53 UTC (rev 26695)
@@ -23,7 +23,7 @@
sub indent($) { my ($self) = @_; $self->{tabs}.="\t"; }
sub deindent($) { my ($self) = @_; $self->{tabs} = substr($self->{tabs}, 1); }
-sub pidl($$) { my ($self,$txt) = @_; $self->{res} .= "$self->{tabs}$txt\n"; }
+sub pidl($$) { my ($self,$txt) = @_; $self->{res} .= $txt ? "$self->{tabs}$txt\n" : "\n"; }
sub pidl_hdr($$) { my ($self, $txt) = @_; $self->{res_hdr} .= "$txt\n"; }
sub fn_declare($$) { my ($self,$n) = @_; $self->pidl($n); $self->pidl_hdr("$n;"); }
More information about the samba-cvs
mailing list