svn commit: samba r10296 - in branches/SAMBA_4_0/source/pidl/lib/Parse/Pidl/Samba: .

[jelmer at samba.org]

Author: jelmer
Date: 2005-09-17 14:36:35 +0000 (Sat, 17 Sep 2005)
New Revision: 10296

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

Log:
Fix function pointer handling for older perl versions

Modified:
   branches/SAMBA_4_0/source/pidl/lib/Parse/Pidl/Samba/TDR.pm


Changeset:
Modified: branches/SAMBA_4_0/source/pidl/lib/Parse/Pidl/Samba/TDR.pm
===================================================================
--- branches/SAMBA_4_0/source/pidl/lib/Parse/Pidl/Samba/TDR.pm	2005-09-17 14:13:36 UTC (rev 10295)
+++ branches/SAMBA_4_0/source/pidl/lib/Parse/Pidl/Samba/TDR.pm	2005-09-17 14:36:35 UTC (rev 10296)
@@ -200,7 +200,7 @@
 
 	{ STRUCT => \&ParserStruct, UNION => \&ParserUnion, 
 		ENUM => \&ParserEnum, BITMAP => \&ParserBitmap
-	}->{$e->{DATA}->{TYPE}}($e->{DATA}, $e->{NAME}, $t, has_property($e, "public"));
+	}->{$e->{DATA}->{TYPE}}->($e->{DATA}, $e->{NAME}, $t, has_property($e, "public"));
 
 	pidl "";
 }