X-Git-Url: https://git.tokkee.org/?a=blobdiff_plain;f=program%2Fbindings%2Fperl-shared%2FRRDs.xs;h=7c75f027dfe9ab65978648637e129dce0cce7752;hb=3fe75e499b529b4e2e20d3e8c7e30b4b44c86c90;hp=029b3beeebe0a3de3190e29d5e0f8419ac6c7ad3;hpb=7020de9241ea3ec8375561ceb5d7165bb94e2713;p=rrdtool-all.git

diff --git a/program/bindings/perl-shared/RRDs.xs b/program/bindings/perl-shared/RRDs.xs
index 029b3bee..7c75f027 100644
--- a/program/bindings/perl-shared/RRDs.xs
+++ b/program/bindings/perl-shared/RRDs.xs
@@ -24,14 +24,16 @@ 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 
+#ifndef PL_sv_undef
 #define PL_sv_undef sv_undef
 #endif
 
@@ -126,7 +128,6 @@ BOOT:
 #ifdef MUST_DISABLE_FPMASK
 	fpsetmask(0);
 #endif 
-	
 
 SV*
 rrd_error()
@@ -136,7 +137,6 @@ rrd_error()
 	OUTPUT:
 		RETVAL
 
-	
 int
 rrd_last(...)
       PROTOTYPE: @
@@ -159,7 +159,6 @@ rrd_first(...)
       OUTPUT:
             RETVAL
 
-
 int
 rrd_create(...)
 	PROTOTYPE: @	
@@ -172,7 +171,6 @@ rrd_create(...)
         OUTPUT:
 		RETVAL
 
-
 int
 rrd_update(...)
 	PROTOTYPE: @	
@@ -185,7 +183,6 @@ rrd_update(...)
 	OUTPUT:
 		RETVAL
 
-
 int
 rrd_tune(...)
 	PROTOTYPE: @	
@@ -198,7 +195,6 @@ rrd_tune(...)
 	OUTPUT:
 		RETVAL
 
-
 SV *
 rrd_graph(...)
 	PROTOTYPE: @	
@@ -444,6 +440,7 @@ rrd_restore(...)
        OUTPUT:
                RETVAL
 
+#ifndef WIN32
 int
 rrd_flushcached(...)
 	PROTOTYPE: @
@@ -454,3 +451,5 @@ rrd_flushcached(...)
 		rrdcode(rrd_flushcached);
 	OUTPUT:
 		RETVAL
+
+#endif