X-Git-Url: https://git.octo.it/?a=blobdiff_plain;f=bindings%2Fperl-shared%2FRRDs.xs;h=5eeba18444e55609674100e660ae4b780ad35d55;hb=ea8c705cc27ef33dee2cc6561ed51e16ddc5d0a9;hp=f84efef67419f876f2c0ff0035eefee0176801cd;hpb=6a4c9f4045859f5dd1096464f4cdf2e8b862147b;p=rrdtool.git

diff --git a/bindings/perl-shared/RRDs.xs b/bindings/perl-shared/RRDs.xs
index f84efef..5eeba18 100644
--- a/bindings/perl-shared/RRDs.xs
+++ b/bindings/perl-shared/RRDs.xs
@@ -99,6 +99,10 @@ extern "C" {
 			hvs(newSVpv(data->value.u_str,0)); \
 			rrd_freemem(data->value.u_str); \
 			break; \
+		    case RD_I_BLO: \
+			hvs(newSVpv(data->value.u_blo.ptr,data->value.u_blo.size)); \
+			rrd_freemem(data->value.u_blo.ptr); \
+			break; \
 		    } \
 		    rrd_freemem(data->key); \
 		    data = data->next; \
@@ -407,6 +411,19 @@ rrd_updatev(...)
     OUTPUT:
 	   RETVAL
 
+SV*
+rrd_graphv(...)
+	PROTOTYPE: @	
+	PREINIT:
+		info_t *data,*save;
+                int i;
+                char **argv;
+		HV *hash;
+	CODE:
+		rrdinfocode(rrd_graph_v);	
+    OUTPUT:
+	   RETVAL
+
 int
 rrd_dump(...)
        PROTOTYPE: @