From e51b23c925a2721cf7c29b2b376d3d8903cfb067 Mon Sep 17 00:00:00 2001
From: Marc Hoersken <info@marc-hoersken.de>
Date: Sat, 6 Apr 2013 18:10:56 +0200
Subject: getpart.pm: Strip carriage returns to fix Windows support

---
 tests/getpart.pm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'tests/getpart.pm')

diff --git a/tests/getpart.pm b/tests/getpart.pm
index 92a237830..2b4abf3b1 100644
--- a/tests/getpart.pm
+++ b/tests/getpart.pm
@@ -213,9 +213,10 @@ sub compareparts {
  # we cannot compare arrays index per index since with the base64 chunks,
  # they may not be "evenly" distributed
 
- # NOTE: this no longer strips off carriage returns from the arrays. Is that
- # really necessary? It ruins the testing of newlines. I believe it was once
- # added to enable tests on win32.
+ if($^O eq "MSWin32" || $^O eq "msys") {
+     $first =~ s/\r\n/\n/g;
+     $second =~ s/\r\n/\n/g;
+ }
 
  if($first ne $second) {
      return 1;
-- 
cgit v1.2.3