X-Git-Url: https://git.octo.it/?a=blobdiff_plain;f=bindings%2Fperl%2FOping.xs;h=5d8fa40992cf07292eb83a8dfbaaacef75d21e2b;hb=e67d7327869b9e7e91cdf1971670d29c8bd22e64;hp=c88e3dca981710649212fac8a21ff97ad68c92bd;hpb=b525c9c88c988fa45593700d9a4846faa388922a;p=liboping.git

diff --git a/bindings/perl/Oping.xs b/bindings/perl/Oping.xs
index c88e3dc..5d8fa40 100644
--- a/bindings/perl/Oping.xs
+++ b/bindings/perl/Oping.xs
@@ -134,6 +134,14 @@ _ping_iterator_next (iter)
 	OUTPUT:
 		RETVAL
 
+int
+_ping_iterator_count (obj)
+	pingobj_t *obj
+	CODE:
+		RETVAL = ping_iterator_count (obj);
+	OUTPUT:
+		RETVAL
+
 double
 _ping_iterator_get_latency (iter)
 	pingobj_iter_t *iter