bindings/perl-shared/RRDs.xs: fix gcc warning "pointer targets differ in signedness"

RRDs.xs:98:16: warning: pointer targets in passing argument 2 of 'Perl_newSVpv' differ in signedness [-Wpointer-sign]
    hvs(newSVpv(data->value.u_blo.ptr,data->value.u_blo.size)); \
                ^

diff --git a/bindings/perl-shared/RRDs.xs b/bindings/perl-shared/RRDs.xs
index 921cea6ba9841026dfca78ada90251526c10f9fa..e6f61e9c38f189d2c3aec7afc8ebb63f9623113f 100644 (file)
--- a/bindings/perl-shared/RRDs.xs
+++ b/bindings/perl-shared/RRDs.xs
@@ -95,7 +95,7 @@ extern "C" {
                        hvs(newSVpv(data->value.u_str,0)); \
                        break; \
                    case RD_I_BLO: \
-                       hvs(newSVpv(data->value.u_blo.ptr,data->value.u_blo.size)); \
+                       hvs(newSVpv((char *)data->value.u_blo.ptr,data->value.u_blo.size)); \
                        break; \
                    } \
                    data = data->next; \