Add perl binding and documentation for new ping_iterator_count function

[liboping.git] / bindings / perl / Oping.xs

diff --git a/bindings/perl/Oping.xs b/bindings/perl/Oping.xs
index 6106e13760cae899222033299c08e0f88ab35b8d..5d8fa40992cf07292eb83a8dfbaaacef75d21e2b 100644 (file)
--- 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);