Oh Wise Monks,

I am using the Text::CSV_XS module to parse a record from an external system. I think that I might have discovered a bug in the module, but wanted to check here first, to see if I am doing something wrong.

The suspected bug occurs when I pass the following string into the module.

0005:A:A2:\\\\string 04\\\\

The fields are delimited with ':' and the escape character is '\'.

I setup for parsing this record using the following code.

use Text::CSV_XS;
my $csv = Text::CSV_XS->new({'quote_char'  => '',
                 'escape_char' => '\\',
                 'sep_char'    => ':',
                 'binary'      => 1 });
if($csv->parse($Row))
{
    my @fields = $csv->fields();
    print "$fields[3]\n";
}
[download]

The results in $field[3] is \string 04\\, but I was expecting to get \\string 04\\.

TIA for your thoughts.

Charles
(The quiet Monk)