diff options
| -rw-r--r-- | tests/getpart.pm | 1 | ||||
| -rwxr-xr-x | tests/runtests.pl | 3 |
2 files changed, 3 insertions, 1 deletions
diff --git a/tests/getpart.pm b/tests/getpart.pm index 7449be983..79287524e 100644 --- a/tests/getpart.pm +++ b/tests/getpart.pm @@ -95,6 +95,7 @@ sub loadtest { undef @xml; open(XML, "<$file") || return 1; # failure! + binmode XML; # for crapage systems, use binary while(<XML>) { push @xml, $_; } diff --git a/tests/runtests.pl b/tests/runtests.pl index 20dcdbdef..eaaf9dff0 100755 --- a/tests/runtests.pl +++ b/tests/runtests.pl @@ -637,7 +637,8 @@ sub singletest { subVariables \$fileContent; # print "DEBUG: writing file " . $filename . "\n"; open OUTFILE, ">$filename"; - print OUTFILE $fileContent; + binmode OUTFILE; # for crapage systems, use binary + print OUTFILE $fileContent; close OUTFILE; } |