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
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
#!/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"; }
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.