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

[jelmer]

Author: jelmer
Date: 2006-09-13 16:29:14 +0000 (Wed, 13 Sep 2006)
New Revision: 18482

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

Log:
Fix a couple of small issues in the generated server code.

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


Changeset:
Modified: branches/SAMBA_4_0/source/pidl/lib/Parse/Pidl/Samba3/ServerNDR.pm
===================================================================
--- branches/SAMBA_4_0/source/pidl/lib/Parse/Pidl/Samba3/ServerNDR.pm   
2006-09-13 16:28:25 UTC (rev 18481)
+++ branches/SAMBA_4_0/source/pidl/lib/Parse/Pidl/Samba3/ServerNDR.pm   
2006-09-13 16:29:14 UTC (rev 18482)
@@ -60,10 +60,10 @@
        my $ret = "_$fn->{NAME}(p";
        foreach (@{$fn->{ELEMENTS}}) {
                my @dir = @{$_->{DIRECTION}};
-               if (grep(@dir, /in/) and grep(@dir, /out/)) {
+               if (grep(/in/, @dir) and grep(/out/, @dir)) {
                        pidl "r.out.$_->{NAME} = r.in.$_->{NAME};";
                }
-               if (grep(@dir, /in/)) { $ret .= ", r.in.$_->{NAME}"; }
+               if (grep(/in/, @dir)) { $ret .= ", r.in.$_->{NAME}"; }
                else { $ret .= ", r.out.$_->{NAME}"; }
 
                $proto .= ", " . DeclLong($_);
@@ -95,7 +95,7 @@
        pidl "}";
        pidl "";
        pidl "blob = ndr_push_blob(push);";
-       pidl "if (!prs_init_data_blob(&p->in_data.rdata, &blob, p->mem_ctx)) {";
+       pidl "if (!prs_init_data_blob(&p->out_data.rdata, &blob, p->mem_ctx)) 
{";
        pidl "\ttalloc_free(mem_ctx);";
        pidl "\treturn False;";
        pidl "}";