From b125e8e23a0212dba4cc3c19a2b744c2241b74e1 Mon Sep 17 00:00:00 2001
From: Daniel Stenberg <daniel@haxx.se>
Date: Wed, 19 Mar 2003 09:26:29 +0000
Subject: [PATCH] set binary mode for some file handling and it might work
 better on some cygwin installations (using DOS-style files somehow?)

---
 tests/getpart.pm  | 1 +
 tests/runtests.pl | 3 ++-
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/tests/getpart.pm b/tests/getpart.pm
index 7449be983..79287524e 100644
--- a/tests/getpart.pm
+++ b/tests/getpart.pm
@@ -95,6 +95,7 @@ sub loadtest {
     undef @xml;
     open(XML, "<$file") ||
         return 1; # failure!
+    binmode XML; # for crapage systems, use binary
     while(<XML>) {
         push @xml, $_;
     }
diff --git a/tests/runtests.pl b/tests/runtests.pl
index 20dcdbdef..eaaf9dff0 100755
--- a/tests/runtests.pl
+++ b/tests/runtests.pl
@@ -637,7 +637,8 @@ sub singletest {
         subVariables \$fileContent;
 #        print "DEBUG: writing file " . $filename . "\n";
         open OUTFILE, ">$filename";
-        print OUTFILE   $fileContent;
+        binmode OUTFILE; # for crapage systems, use binary       
+        print OUTFILE $fileContent;
         close OUTFILE;
     }