projects
/
liboping.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
bindings/perl: Fix error handling in Perl:ping() and XS:_ping_iterator_get_hostname().
[liboping.git]
/
bindings
/
perl
/
Oping.xs
diff --git
a/bindings/perl/Oping.xs
b/bindings/perl/Oping.xs
index
6fbf49c
..
d97d4f8
100644
(file)
--- a/
bindings/perl/Oping.xs
+++ b/
bindings/perl/Oping.xs
@@
-132,7
+132,10
@@
_ping_iterator_get_hostname (iter)
status = ping_iterator_get_info (iter, PING_INFO_HOSTNAME,
(void *) buffer, &buffer_size);
if (status != 0)
+ {
+ free (buffer);
break;
+ }
XPUSHs (sv_2mortal (newSVpvn(buffer,buffer_size)));
free(buffer);