projects
/
liboping.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
bindings/perl: Add the `ttl' method.
[liboping.git]
/
bindings
/
perl
/
Oping.xs
diff --git
a/bindings/perl/Oping.xs
b/bindings/perl/Oping.xs
index
135733d
..
1327a95
100644
(file)
--- 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