svn commit: samba r2962 - in branches/SAMBA_4_0/source/build/pidl: .

[tpot at samba.org]

Author: tpot
Date: 2004-10-14 05:59:28 +0000 (Thu, 14 Oct 2004)
New Revision: 2962

WebSVN: http://websvn.samba.org/websvn/changeset.php?rep=samba&path=/branches/SAMBA_4_0/source/build/pidl&rev=2962&nolog=1

Log:
Tweak to get conversion function for pointers to union compiling again.

Modified:
   branches/SAMBA_4_0/source/build/pidl/swig.pm


Changeset:
Modified: branches/SAMBA_4_0/source/build/pidl/swig.pm
===================================================================
--- branches/SAMBA_4_0/source/build/pidl/swig.pm	2004-10-14 05:38:48 UTC (rev 2961)
+++ branches/SAMBA_4_0/source/build/pidl/swig.pm	2004-10-14 05:59:28 UTC (rev 2962)
@@ -547,7 +547,7 @@
 	$result .= "\tif (switch_is == $e->{CASE}) {\n";
 	my $prefix = util::c_pull_prefix($e);
 	if (defined $e->{DATA}{NAME}) {
-		$result .= "\t\tPyDict_SetItemString(obj, \"$e->{DATA}{NAME}\", $e->{DATA}{TYPE}_ptr_to_python(mem_ctx, $prefix\u->$e->{DATA}{NAME}));\n";
+		$result .= "\t\tPyDict_SetItemString(obj, \"$e->{DATA}{NAME}\", $e->{DATA}{TYPE}_ptr_to_python(mem_ctx, ${prefix}u->$e->{DATA}{NAME}));\n";
 	}
 	$result .= "\t}\n";
     }