[libchamplain] Fix the first parameter type in champlainperl_constructor_create()

[Pierre-Luc Beaudoin <plbeaudoin src gnome org>]

commit eb605aec2a467c7776df1f7a44a034bf44f9c3e8
Author: Emmanuel Rodriguez <emmanuel rodriguez gmail com>
Date:   Mon Jun 15 23:14:04 2009 +0200

    Fix the first parameter type in champlainperl_constructor_create()

 .../perl/Champlain/xs/ChamplainMapSourceFactory.xs |    5 ++++-
 1 files changed, 4 insertions(+), 1 deletions(-)
---
diff --git a/bindings/perl/Champlain/xs/ChamplainMapSourceFactory.xs b/bindings/perl/Champlain/xs/ChamplainMapSourceFactory.xs
index 60228d2..a6d602a 100644
--- a/bindings/perl/Champlain/xs/ChamplainMapSourceFactory.xs
+++ b/bindings/perl/Champlain/xs/ChamplainMapSourceFactory.xs
@@ -2,7 +2,10 @@
 
 static GPerlCallback*
 champlainperl_constructor_create (SV *func, SV *data) {
-	GType param_types[2] = { G_TYPE_POINTER, G_TYPE_POINTER, };
+	GType param_types[2] = {
+		CHAMPLAIN_TYPE_MAP_SOURCE_DESC,
+		G_TYPE_POINTER,
+	};
 	return gperl_callback_new(func, data, 2, param_types, CHAMPLAIN_TYPE_MAP_SOURCE);
 }