Skip Menu |
 

This queue is for tickets about the List-MoreUtils CPAN distribution.

Report information
The Basics
Id: 86260
Status: resolved
Priority: 0/
Queue: List-MoreUtils

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

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



Subject: each_arrayref Segfaults if either argument is undefined
MIME-Version: 1.0
X-Mailer: MIME-tools 5.504 (Entity 5.504)
X-RT-Interface: Web
Message-ID: <rt-4.0.13-12947-1371656873-835.0-0-0 [...] rt.cpan.org>
X-RT-Original-Encoding: utf-8
Content-Type: multipart/mixed; boundary="----------=_1371656873-12947-1"
X-RT-Encrypt: 0
X-RT-Sign: 0
Content-Length: 0
Content-Disposition: inline
Content-Type: text/plain; charset="utf-8"
Content-Transfer-Encoding: binary
Content-Length: 252
Download (untitled) / with headers
text/plain 252b
each_arrayref segfaults if either argument is undefined. The output of attached code is shown below as an example: dlarochelle@dlarochelle-OptiPlex-990:~/dev_scratch$ perl eacharray_ref_test.pl starting starting loop Segmentation fault (core dumped)
Subject: eacharray_ref_test.pl
MIME-Version: 1.0
Content-Type: application/octet-stream; name="eacharray_ref_test.pl"
X-Mailer: MIME-tools 5.504 (Entity 5.504)
Content-Disposition: inline; filename="eacharray_ref_test.pl"
Content-Transfer-Encoding: base64
Content-Length: 262
#!/usr/bin/env perl use List::MoreUtils qw ( each_arrayref ); my $arr1 = [ '1', '2', '3' ]; my $arr2; say STDERR "starting"; my $ea = each_arrayref ( $arr1, $arr2 ); say STDERR "starting loop"; while ( my ( $a, $b ) = $ea->() ) { say STDERR "$a $b"; }
MIME-Version: 1.0
In-Reply-To: <rt-4.0.13-12947-1371656873-835.0-0-0 [...] rt.cpan.org>
X-Mailer: MIME-tools 5.504 (Entity 5.504)
Content-Disposition: inline
X-RT-Interface: Web
References: <rt-4.0.13-12947-1371656873-835.0-0-0 [...] rt.cpan.org>
Content-Type: text/plain; charset="utf-8"
Message-ID: <rt-4.0.18-22913-1423924023-1734.86260-0-0 [...] rt.cpan.org>
Content-Transfer-Encoding: binary
X-RT-Original-Encoding: utf-8
X-RT-Encrypt: 0
X-RT-Sign: 0
Content-Length: 330
Download (untitled) / with headers
text/plain 330b
perl -Mblib -MList::MoreUtils=each_arrayref -le 'my $arr1 = [ '1', '2', '3' ]; my $arr2; my $ea = each_arrayref ( $arr1, $arr2 ); while ( my ( $a, $b ) = $ea->() ) { say STDERR "$a $b"; }' Usage: List::MoreUtils::each_arrayref(\@;\@\@...) at -e line 1. Fixed (by fixing RT#96596) - yours were older and should be credited, too


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.