projects
/
liboping.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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
6106e13
..
5d8fa40
100644
(file)
--- a/
bindings/perl/Oping.xs
+++ b/
bindings/perl/Oping.xs
@@
-19,7
+19,7
@@
*
* Authors:
* Olivier Fredj <ofredj at proxad.net>
*
* 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"
*/
#include "EXTERN.h"
#include "perl.h"
@@
-134,6
+134,14
@@
_ping_iterator_next (iter)
OUTPUT:
RETVAL
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
double
_ping_iterator_get_latency (iter)
pingobj_iter_t *iter
@@
-183,8
+191,9
@@
_ping_iterator_get_hostname (iter)
free (buffer);
break;
}
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);
free(buffer);
} while (0);