Commit e51b23c9 authored by Marc Hoersken's avatar Marc Hoersken
Browse files

getpart.pm: Strip carriage returns to fix Windows support

parent 18f0ab7b

tests/getpart.pm

+4 −3
Original line number Diff line number Diff line
@@ -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;