Index: subversion/bindings/swig/perl/libsvn_swig_perl/swigutil_pl.c
===================================================================
--- subversion/bindings/swig/perl/libsvn_swig_perl/swigutil_pl.c	(revision 15966)
+++ subversion/bindings/swig/perl/libsvn_swig_perl/swigutil_pl.c	(working copy)
@@ -21,6 +21,7 @@
 #include <XSUB.h>
 
 #include <stdarg.h>
+#include <io.h>
 
 #include <apr.h>
 #include <apr_general.h>
@@ -1370,7 +1371,12 @@
                     pool);
     } else if (SvROK(file) && SvTYPE(SvRV(file)) == SVt_PVGV) {
         apr_status_t status;
+#ifdef WIN32
+        apr_os_file_t osfile = (apr_os_file_t)
+          _get_osfhandle(PerlIO_fileno(IoIFP(sv_2io(file))));
+#else
         apr_os_file_t osfile = PerlIO_fileno(IoIFP(sv_2io(file)));
+#endif
         status = apr_os_file_put (&apr_file, &osfile, 
                                   O_CREAT | O_WRONLY, pool);
         if (status)