| Subject: | Tests can't work on Windows |
Could you replace the compare() sub in 20_write_file.t with, say, this:
sub compare {
my ($test_name) = @_;
seek($fh, 0,0);
my @nole_lines = $fh->getlines;
my @nole_data = @data;
# Strip non-char characters to get rid of line endings on any platform
# Otherwise the tests fail on non-UNIX due to "\n" use above
@nole_lines = map {s/\W//g; $_} @nole_lines;
@nole_data = map {s/\W//g; $_} @nole_data;
is_deeply([@nole_lines], \@nole_data, $test_name);
}
So that the tests pass under Windows?