From 59a76e401050b65ca8ebfc74915c54b033185e0c Mon Sep 17 00:00:00 2001
From: Daniel Stenberg <daniel@haxx.se>
Date: Wed, 10 Oct 2001 21:59:10 +0000
Subject: Kevin Roth's fixes to make tests work on cygwin

---
 tests/getpart.pm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'tests/getpart.pm')

diff --git a/tests/getpart.pm b/tests/getpart.pm
index 0edb6c9b5..20da14b5c 100644
--- a/tests/getpart.pm
+++ b/tests/getpart.pm
@@ -119,7 +119,11 @@ sub compareparts {
  for(1 .. $sizefirst) {
      my $index = $_ - 1;
      if($firstref->[$index] ne $secondref->[$index]) {
-         return 1+$index;
+         (my $aa = $firstref->[$index]) =~ s/\r+\n$/\n/;
+         (my $bb = $secondref->[$index]) =~ s/\r+\n$/\n/;
+         if($aa ne $bb) {
+             return 1+$index;
+         }
      }
  }
  return 0;
@@ -132,6 +136,7 @@ sub writearray {
     my ($filename, $arrayref)=@_;
 
     open(TEMP, ">$filename");
+    binmode(TEMP,":raw"); # cygwin fix by Kevin Roth
     for(@$arrayref) {
         print TEMP $_;
     }
-- 
cgit v1.2.3