bindings/perl/Oping.xs: Fix an off-by-one error when allocating a Perl string.

[liboping.git] / bindings / perl / Oping.xs

diff --git a/bindings/perl/Oping.xs b/bindings/perl/Oping.xs
index 6106e13760cae899222033299c08e0f88ab35b8d..5731d3d8088f28d4df8eb826dba4ab232b1b1b98 100644 (file)
--- 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);