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

diff --git a/bindings/perl/Oping.xs b/bindings/perl/Oping.xs
index 6106e13..5d8fa40 100644
--- a/bindings/perl/Oping.xs
+++ b/bindings/perl/Oping.xs
@@ -19,7 +19,7 @@
  *
  * Authors:
  *   Olivier Fredj <ofredj at proxad.net>
- *   Florian octo Forster <octo at verplant.org>
+ *   Florian octo Forster <ff at octo.it>
  */
 #include "EXTERN.h"
 #include "perl.h"
@@ -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
@@ -183,8 +191,9 @@ _ping_iterator_get_hostname (iter)
 			free (buffer);
 			break;
 		}
+		buffer[buffer_size - 1] = 0;
 
-		XPUSHs (sv_2mortal (newSVpvn(buffer,buffer_size)));
+		XPUSHs (sv_2mortal (newSVpvn(buffer, strlen (buffer))));
 		free(buffer);
 	} while (0);