From: Emmanuel Rodriguez <emmanuel.rodriguez@gmail.com>
Date: Mon, 13 Apr 2009 20:09:26 +0000 (+0200)
Subject: new_full() doesn't throw an exception
X-Git-Url: https://err.no/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=63afe8792c80f3d73d578143b99585913cb1fdcb;p=libchamplain

new_full() doesn't throw an exception
---

diff --git a/bindings/perl/Champlain/xs/ChamplainMarker.xs b/bindings/perl/Champlain/xs/ChamplainMarker.xs
index 8f6a316..32bf96b 100644
--- 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*