X-Git-Url: https://git.tokkee.org/?a=blobdiff_plain;f=bindings%2Fperl-shared%2FRRDs.xs;h=252018f53b2942d2f25583375fe7b086c54c310a;hb=23a63bef251017be5fd4f09db2be10575e3df59e;hp=25d44a51c555aa30312608e803fd4c121998dfc8;hpb=be3cca08c4031f46d4e2b872ab0eb825c5b69b4e;p=pkg-rrdtool.git

diff --git a/bindings/perl-shared/RRDs.xs b/bindings/perl-shared/RRDs.xs
index 25d44a5..252018f 100644
--- a/bindings/perl-shared/RRDs.xs
+++ b/bindings/perl-shared/RRDs.xs
@@ -24,18 +24,14 @@ extern "C" {
  */
 #define VERSION_SAVED VERSION
 #undef VERSION
+#ifndef WIN32
 #include "../../rrd_config.h"
+#endif
 #include "../../src/rrd_tool.h"
 #undef VERSION
 #define VERSION VERSION_SAVED
 #undef VERSION_SAVED
 
-/* perl 5.004 compatibility */
-#if PERLPATCHLEVEL < 5 
-#define PL_sv_undef sv_undef
-#endif
-
-
 #define rrdcode(name) \
 		argv = (char **) malloc((items+1)*sizeof(char *));\
 		argv[0] = "dummy";\
@@ -126,7 +122,6 @@ BOOT:
 #ifdef MUST_DISABLE_FPMASK
 	fpsetmask(0);
 #endif 
-	
 
 SV*
 rrd_error()
@@ -136,7 +131,6 @@ rrd_error()
 	OUTPUT:
 		RETVAL
 
-	
 int
 rrd_last(...)
       PROTOTYPE: @
@@ -159,7 +153,6 @@ rrd_first(...)
       OUTPUT:
             RETVAL
 
-
 int
 rrd_create(...)
 	PROTOTYPE: @	
@@ -172,7 +165,6 @@ rrd_create(...)
         OUTPUT:
 		RETVAL
 
-
 int
 rrd_update(...)
 	PROTOTYPE: @	
@@ -185,7 +177,6 @@ rrd_update(...)
 	OUTPUT:
 		RETVAL
 
-
 int
 rrd_tune(...)
 	PROTOTYPE: @	
@@ -198,7 +189,6 @@ rrd_tune(...)
 	OUTPUT:
 		RETVAL
 
-
 SV *
 rrd_graph(...)
 	PROTOTYPE: @	
@@ -444,3 +434,16 @@ rrd_restore(...)
        OUTPUT:
                RETVAL
 
+#ifndef WIN32
+int
+rrd_flushcached(...)
+	PROTOTYPE: @
+	PREINIT:
+	int i;
+	char **argv;
+	CODE:
+		rrdcode(rrd_flushcached);
+	OUTPUT:
+		RETVAL
+
+#endif