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

Owner: Nobody in particular
Requestors: DRLARO [...]

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 starting starting loop Segmentation fault (core dumped)
#!/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 infrastructure.

Please report any issues with to