From 40b25e68fc4d7d77bb8968bb1961f69689b8a30e Mon Sep 17 00:00:00 2001
From: Fredrik Soderblom <fredrik@xpd.se>
Date: Thu, 1 Oct 2009 14:24:46 +0200
Subject: [PATCH] bindings/perl/Oping.xs: Fix an off-by-one error when
 allocating a Perl string.

In the previous code the null byte was included in the Perl string,
making the string handling awkward.
---
 bindings/perl/Oping.xs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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);
 
-- 
2.30.2