new_full() doesn't throw an exception

diff --git a/bindings/perl/Champlain/xs/ChamplainMarker.xs b/bindings/perl/Champlain/xs/ChamplainMarker.xs
index 8f6a3164cead798521b678789673a2341aae64eb..32bf96bcdd2624cda0491732dc8a4bc6d772adfd 100644 (file)
--- a/bindings/perl/Champlain/xs/ChamplainMarker.xs
+++ b/bindings/perl/Champlain/xs/ChamplainMarker.xs
@@ -29,15 +29,7 @@ champlain_marker_new_from_file (class, const gchar *filename)
 
 ClutterActor*
 champlain_marker_new_full (class, const gchar *text, ClutterActor_ornull *actor)
-       PREINIT:
-               GError *error = NULL;
-       CODE:
-               RETVAL = champlain_marker_new_full(text, actor, &error);
-               if (error) {
-                       gperl_croak_gerror(NULL, error);
-               }
-       OUTPUT:
-               RETVAL
+       C_ARGS: text, actor
 
 
 ClutterActor*