Skip Menu |
 

This queue is for tickets about the Text-CSV-Track CPAN distribution.

Report information
The Basics
Id: 93486
Status: new
Priority: 0/
Queue: Text-CSV-Track

People
Owner: Nobody in particular
Requestors: HMBRAND [...] cpan.org
Cc:
AdminCc:

Bug Information
Severity: Critical
Broken in: (no value)
Fixed in: (no value)



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


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.