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

diff --git a/bindings/perl/Oping.xs b/bindings/perl/Oping.xs
index 135733d..1327a95 100644
--- a/bindings/perl/Oping.xs
+++ b/bindings/perl/Oping.xs
@@ -62,6 +62,15 @@ _ping_setopt_timeout (obj, timeout)
 		RETVAL
 
 int
+_ping_setopt_ttl (obj, ttl)
+	pingobj_t *obj
+	int ttl
+	CODE:
+		RETVAL = ping_setopt (obj, PING_OPT_TTL, &ttl);
+	OUTPUT:
+		RETVAL
+
+int
 _ping_setopt_source (obj, addr)
 	pingobj_t *obj
 	char *addr