Fix the first parameter type in champlainperl_constructor_create()

diff --git a/bindings/perl/Champlain/xs/ChamplainMapSourceFactory.xs b/bindings/perl/Champlain/xs/ChamplainMapSourceFactory.xs
index 60228d2c22478ec626e81d325b5e1de9579a3726..a6d602afe2db9f49ca116c9d7a629144f7dc379b 100644 (file)
--- 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);
 }