Loading tests/getpart.pm +1 −0 Original line number Diff line number Diff line Loading @@ -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, $_; } Loading tests/runtests.pl +2 −1 Original line number Diff line number Diff line Loading @@ -637,6 +637,7 @@ sub singletest { subVariables \$fileContent; # print "DEBUG: writing file " . $filename . "\n"; open OUTFILE, ">$filename"; binmode OUTFILE; # for crapage systems, use binary print OUTFILE $fileContent; close OUTFILE; } Loading Loading
tests/getpart.pm +1 −0 Original line number Diff line number Diff line Loading @@ -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, $_; } Loading
tests/runtests.pl +2 −1 Original line number Diff line number Diff line Loading @@ -637,6 +637,7 @@ sub singletest { subVariables \$fileContent; # print "DEBUG: writing file " . $filename . "\n"; open OUTFILE, ">$filename"; binmode OUTFILE; # for crapage systems, use binary print OUTFILE $fileContent; close OUTFILE; } Loading