From: Marek Schimara <Marek.Schimara@bull.net>
Date: Thu, 1 Sep 2016 11:52:11 +0000 (+0200)
Subject: bindings/perl-shared/RRDs.xs: fix gcc warning "pointer targets differ in signedness"
X-Git-Tag: v1.7.0~35^2~14
X-Git-Url: http://git.ipfire.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=d9648fc466740631bb6f7dc558b345123c13f38e;p=thirdparty%2Frrdtool-1.x.git

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 921cea6b..e6f61e9c 100644
--- 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; \