getpart.pm: Strip carriage returns to fix Windows support

1 files changed, 4 insertions, 3 deletions

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;