X-Git-Url: https://git.octo.it/?a=blobdiff_plain;f=bindings%2Fperl%2FOping.xs;h=5731d3d8088f28d4df8eb826dba4ab232b1b1b98;hb=40b25e68fc4d7d77bb8968bb1961f69689b8a30e;hp=6106e13760cae899222033299c08e0f88ab35b8d;hpb=5a2d8718ca250276308a7e9a9395870de119b753;p=liboping.git

diff --git a/bindings/perl/Oping.xs b/bindings/perl/Oping.xs
index 6106e13..5731d3d 100644
--- a/bindings/perl/Oping.xs
+++ b/bindings/perl/Oping.xs
@@ -183,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);