Skip Menu |

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

Report information
The Basics
Id: 38890
Status: resolved
Priority: 0/
Queue: Text-CSV_XS

People
Owner: HMBRAND [...] cpan.org
Requestors: jeff-cpan [...] weasellips.com
Cc:
AdminCc:

Bug Information
Severity: Important
Broken in: 0.30
Fixed in: 0.53



I see segmentation fault for Text-CSV_XS-0.52 but have not determined why. This is perl v5.8.4 built for i386-linux-thread-multi on Debian sarge with kernel 2.4.27-3-686-smp. Not all classes of error produce the segfault. Below is code which produces the segfault. #!/usr/bin/perl -Tw use Text::CSV_XS 0.52; my $csv = new Text::CSV_XS; open my $file, "<&*DATA" or die "Can't open: $!"; while(my $row = $csv->getline($file)){} $csv->error_diag; #segfault here __DATA__ """
Subject: Re: [rt.cpan.org #38890]
Date: Mon, 1 Sep 2008 08:10:29 +0200
To: bug-Text-CSV_XS [...] rt.cpan.org
From: "H.Merijn Brand" <h.m.brand [...] xs4all.nl>
On Sun, 31 Aug 2008 17:30:40 -0400, "Jeff Finucane via RT" <bug-Text-CSV_XS@rt.cpan.org> wrote: Show quoted text
> Sun Aug 31 17:30:38 2008: Request 38890 was acted upon. > Transaction: Ticket created by JEF > Queue: Text-CSV_XS > Subject: (No subject given) > Broken in: 0.52 > Severity: Normal > Owner: Nobody > Requestors: jeff-cpan@weasellips.com > Status: new > Ticket <URL: http://rt.cpan.org/Ticket/Display.html?id=38890 > > > > I see segmentation fault for Text-CSV_XS-0.52 but have not determined > why. This is perl v5.8.4 built for i386-linux-thread-multi on Debian > sarge with kernel 2.4.27-3-686-smp. Not all classes of error produce > the segfault.
perl5.10 is better, and gives me a good hint where to look: $ perl -T test.pl sv_upgrade from type 8 down to type 6 at test.pl line 7, <$file> line 1. Thanks for the short and concise test case Show quoted text
> Below is code which produces the segfault. > > #!/usr/bin/perl -Tw > use Text::CSV_XS 0.52; > > my $csv = new Text::CSV_XS; > open my $file, "<&*DATA" or die "Can't open: $!"; > > while(my $row = $csv->getline($file)){} > $csv->error_diag; #segfault here > > __DATA__ > """
-- H.Merijn Brand Amsterdam Perl Mongers http://amsterdam.pm.org/ using & porting perl 5.6.2, 5.8.x, 5.10.x, 5.11.x on HP-UX 10.20, 11.00, 11.11, 11.23, and 11.31, SuSE 10.1, 10.2, and 10.3, AIX 5.2, and Cygwin. http://mirrors.develooper.com/hpux/ http://www.test-smoke.org/ http://qa.perl.org http://www.goldmark.org/jeff/stupid-disclaimers/
Subject: Re: [rt.cpan.org #38890]
Date: Mon, 1 Sep 2008 08:46:38 +0200
To: bug-Text-CSV_XS [...] rt.cpan.org
From: "H.Merijn Brand" <h.m.brand [...] xs4all.nl>
On Sun, 31 Aug 2008 17:30:40 -0400, "Jeff Finucane via RT" <bug-Text-CSV_XS@rt.cpan.org> wrote: Show quoted text
> Sun Aug 31 17:30:38 2008: Request 38890 was acted upon. > Transaction: Ticket created by JEF > Queue: Text-CSV_XS > Subject: (No subject given) > Broken in: 0.52 > Severity: Normal > Owner: Nobody > Requestors: jeff-cpan@weasellips.com > Status: new > Ticket <URL: http://rt.cpan.org/Ticket/Display.html?id=38890 > > > > I see segmentation fault for Text-CSV_XS-0.52 but have not determined > why. This is perl v5.8.4 built for i386-linux-thread-multi on Debian > sarge with kernel 2.4.27-3-686-smp. Not all classes of error produce > the segfault.
In trying to reproduce the fail on my current development state, I found that I already fixed this specific problem in July. If you're in a hurry, get it from git://repo.or.cz/Text-CSV_XS.git I'll release 0.53 soon. Probably even today Show quoted text
> Below is code which produces the segfault. > > #!/usr/bin/perl -Tw > use Text::CSV_XS 0.52; > > my $csv = new Text::CSV_XS; > open my $file, "<&*DATA" or die "Can't open: $!"; > > while(my $row = $csv->getline($file)){} > $csv->error_diag; #segfault here > > __DATA__ > """
-- H.Merijn Brand Amsterdam Perl Mongers http://amsterdam.pm.org/ using & porting perl 5.6.2, 5.8.x, 5.10.x, 5.11.x on HP-UX 10.20, 11.00, 11.11, 11.23, and 11.31, SuSE 10.1, 10.2, and 10.3, AIX 5.2, and Cygwin. http://mirrors.develooper.com/hpux/ http://www.test-smoke.org/ http://qa.perl.org http://www.goldmark.org/jeff/stupid-disclaimers/