pidl:Typelist: fix perl warnings about recursiv function calls

[ira/wip.git] / pidl / lib / Parse / Pidl / Typelist.pm

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) = @_;