pidl:Typelist: fix perl warnings about recursiv function calls

metze

Autobuild-User: Stefan Metzmacher <metze@samba.org>
Autobuild-Date: Wed Jan 26 10:59:04 CET 2011 on sn-devel-104

diff --git a/pidl/lib/Parse/Pidl/Typelist.pm b/pidl/lib/Parse/Pidl/Typelist.pm
index 4733f91565fc7b497748a7ced442f00e5f682799..a89b1a74eb495c66bb26daa517ed2d2544cd471c 100644 (file)
--- a/pidl/lib/Parse/Pidl/Typelist.pm
+++ b/pidl/lib/Parse/Pidl/Typelist.pm
@@ -128,6 +128,7 @@ sub getType($)
        return $types{$t};
 }
 
+sub typeIs($$);
 sub typeIs($$)
 {
        my ($t,$tt) = @_;