| Subject: | [PATCH] Fail with Text::CSV_XS 1.02 and up |
As Text::CSV_XS now tries even harder to meet the use of most people, which seems to be to recognize UTF-8 as often as possible, that new default breaks your module. The fix is relatively easy though:
--8<---
--- a/lib/Text/CSV/Track.pm 2007-11-01 14:27:17.000000000 +0100
+++ b/lib/Text/CSV/Track.pm 2014-03-03 14:07:46.671878517 +0100
@@ -551,13 +551,15 @@ sub _init {
return if not $file_name;
#define csv format
- $self->_csv_format(Text::CSV_XS->new({
+ my $xs_args = {
sep_char => $sep_char,
escape_char => $escape_char,
quote_char => $quote_char,
always_quote => $always_quote,
binary => $binary,
- }));
+ };
+ $Text::CSV_XS::VERSION ge "1.02" and $xs_args->{decode_utf8} = 0;
+ $self->_csv_format(Text::CSV_XS->new($xs_args));
#default open mode is reading
my $open_mode = '<';
-->8---
Sorry for the inconvenience. I hope I used your style in the patch