getpart.pm: Strip carriage returns to fix Windows support

This commit is contained in:
Marc Hoersken 2013-04-06 18:10:56 +02:00
parent 18f0ab7bd3
commit e51b23c925
1 changed files with 4 additions and 3 deletions

View File

@ -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;