From c77b6b7a567bd787baa98a9e459bd64e9ef39154 Mon Sep 17 00:00:00 2001
From: Peter Stamfest <peter@stamfest.at>
Date: Sat, 8 Mar 2014 09:22:37 +0100
Subject: [PATCH] Make modify command available using RRDs

---
 bindings/perl-shared/RRDs.pm |  1 +
 bindings/perl-shared/RRDs.xs | 12 ++++++++++++
 2 files changed, 13 insertions(+)

diff --git a/bindings/perl-shared/RRDs.pm b/bindings/perl-shared/RRDs.pm
index 211480c1..8ca1d4a2 100644
--- a/bindings/perl-shared/RRDs.pm
+++ b/bindings/perl-shared/RRDs.pm
@@ -30,6 +30,7 @@ RRDs - Access RRDtool as a shared module
   RRDs::graph ...
   RRDs::fetch ...
   RRDs::tune ...
+  RRDs::modify ...
   RRDs::times(start, end)
   RRDs::dump ...
   RRDs::restore ...
diff --git a/bindings/perl-shared/RRDs.xs b/bindings/perl-shared/RRDs.xs
index 266b5e34..774fc9f8 100644
--- a/bindings/perl-shared/RRDs.xs
+++ b/bindings/perl-shared/RRDs.xs
@@ -189,6 +189,18 @@ rrd_tune(...)
 	OUTPUT:
 		RETVAL
 
+int
+rrd_modify(...)
+	PROTOTYPE: @	
+	PREINIT:
+        int i;
+	char **argv;
+	CODE:
+		rrdcode(rrd_modify);
+       	        RETVAL = 1;
+	OUTPUT:
+		RETVAL
+
 SV *
 rrd_graph(...)
 	PROTOTYPE: @	
-- 
2.47.3