From eb605aec2a467c7776df1f7a44a034bf44f9c3e8 Mon Sep 17 00:00:00 2001
From: Emmanuel Rodriguez <emmanuel.rodriguez@gmail.com>
Date: Mon, 15 Jun 2009 23:14:04 +0200
Subject: [PATCH] Fix the first parameter type in
 champlainperl_constructor_create()

---
 bindings/perl/Champlain/xs/ChamplainMapSourceFactory.xs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

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);
 }
 
-- 
2.39.5