projects
/
liboping.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Net::Oping: Add the `device' method.
[liboping.git]
/
bindings
/
perl
/
Oping.xs
diff --git
a/bindings/perl/Oping.xs
b/bindings/perl/Oping.xs
index
1327a95
..
6106e13
100644
(file)
--- a/
bindings/perl/Oping.xs
+++ b/
bindings/perl/Oping.xs
@@
-79,6
+79,19
@@
_ping_setopt_source (obj, addr)
OUTPUT:
RETVAL
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
int
_ping_host_add (obj, host);
pingobj_t *obj