From f1d065128d8715e9ee34a31bbdc60d9d4e00a6a8 Mon Sep 17 00:00:00 2001
From: Jelmer Vernooij <jelmer@samba.org>
Date: Sat, 17 Sep 2005 14:36:35 +0000
Subject: r10296: Fix function pointer handling for older perl versions (This
 used to be commit 0949db8119af548c199930c64449d6ca2228bcb5)

---
 source4/pidl/lib/Parse/Pidl/Samba/TDR.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'source4/pidl/lib/Parse/Pidl')

diff --git a/source4/pidl/lib/Parse/Pidl/Samba/TDR.pm b/source4/pidl/lib/Parse/Pidl/Samba/TDR.pm
index b5637f8cbf..124cb61bb4 100644
--- a/source4/pidl/lib/Parse/Pidl/Samba/TDR.pm
+++ b/source4/pidl/lib/Parse/Pidl/Samba/TDR.pm
@@ -200,7 +200,7 @@ sub ParserTypedef($$)
 
 	{ 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 "";
 }
-- 
cgit