r10296: Fix function pointer handling for older perl versions

(This used to be commit 0949db8119af548c199930c64449d6ca2228bcb5)

diff --git a/source4/pidl/lib/Parse/Pidl/Samba/TDR.pm b/source4/pidl/lib/Parse/Pidl/Samba/TDR.pm
index b5637f8cbfac7d788b2eaa0bea1514ed14c48cee..124cb61bb4decc2ef4479fef11d171267f44e379 100644 (file)
--- 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 "";
 }