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

[jelmer]

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 "";
 }