| Subject: | XS pairwise doesn't propagate $@ |
The XS version of pairwise() doesn't propagate $@ if a die occurs in the
passed BLOCK. Here's test code:
----------------------------------
#!/usr/bin/perl
use strict;
use warnings;
use List::MoreUtils qw( pairwise );
eval {
my @a = ( 1 );
my @b = ( 1 );
pairwise { die("help me!") } @a, @b;
};
warn "died: $@" if $@;
------------------------------------
And the results:
% env LIST_MOREUTILS_PP=0 perl test
% env LIST_MOREUTILS_PP=1 perl test
died: help me! at test line 11.
%