Make modify command available using RRDs

diff --git a/bindings/perl-shared/RRDs.pm b/bindings/perl-shared/RRDs.pm
index 211480c1a8570536afe6aa7e43114857e9105a49..8ca1d4a2fa83668c7c56ec79bcc4ab6e551e6172 100644 (file)
--- 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 266b5e3423a88995e66f0f72442da348fff02f16..774fc9f80b7d7e84f5f0cd39c01f4acdccb16785 100644 (file)
--- 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: @