From a1f1d457290c3b27dc5bd4d0258767df0d7cd6e1 Mon Sep 17 00:00:00 2001 From: Emmanuel Rodriguez Date: Wed, 8 Jul 2009 23:11:32 +0200 Subject: [PATCH] Return XSRETURN_EMPTY if champlain_polygon_get_points() has no points --- bindings/perl/Champlain/xs/ChamplainPolygon.xs | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/bindings/perl/Champlain/xs/ChamplainPolygon.xs b/bindings/perl/Champlain/xs/ChamplainPolygon.xs index 4bec9e4..c6e28f5 100644 --- a/bindings/perl/Champlain/xs/ChamplainPolygon.xs +++ b/bindings/perl/Champlain/xs/ChamplainPolygon.xs @@ -28,7 +28,11 @@ champlain_polygon_get_points (ChamplainPolygon *polygon) PPCODE: item = champlain_polygon_get_points(polygon); - + + if (!item) { + XSRETURN_EMPTY; + } + for (; item != NULL; item = item->next) { ChamplainPoint *point = CHAMPLAIN_POINT(item->data); XPUSHs(sv_2mortal(newSVChamplainPoint(point))); -- 2.39.5