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

diff --git a/bindings/perl/Oping.xs b/bindings/perl/Oping.xs
index 1327a95..c88e3dc 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"
@@ -79,6 +79,19 @@ _ping_setopt_source (obj, addr)
 	OUTPUT:
 		RETVAL
 
+int
+_ping_setopt_device (obj, dev)
+	pingobj_t *obj
+	char *dev
+	CODE:
+#if OPING_VERSION >= 1003000
+		RETVAL = ping_setopt (obj, PING_OPT_DEVICE, dev);
+#else
+		RETVAL = -95;
+#endif
+	OUTPUT:
+		RETVAL
+
 int 
 _ping_host_add (obj, host);
 	pingobj_t *obj
@@ -170,8 +183,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);