1 files changed, 1 insertions, 0 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, $_;
     }