Bug#521471: Segfault if mesh passed bad arrayref

[Anthony DeRobertis]

Package: liblist-moreutils-perl
Version: 0.22-1+b1
Severity: normal
File: /usr/lib/perl5/List/MoreUtils.pm

$ cat t.pl
use List::MoreUtils qw(mesh);
&mesh($foo, $bar);
$ perl t.pl
Segmentation fault

An error message would be much better. The pure pure implementation does
not seem to suffer from this problem; only the XS version.

Here is a backtrace using perl-debug:

(gdb) bt
#0  Perl_av_len (my_perl=0x9d02008, av=0x0) at av.c:749
#1  0xb7f06fa9 in XS_List__MoreUtils_mesh ()
   from /usr/lib/perl5/auto/List/MoreUtils/MoreUtils.so
#2  0x080e0bf1 in Perl_pp_entersub (my_perl=0x9d02008) at pp_hot.c:2850
#3  0x080a58df in Perl_runops_debug (my_perl=0x9d02008) at dump.c:1931
#4  0x080d6d61 in perl_run (my_perl=0x9d02008) at perl.c:2391
#5  0x08063f45 in main (argc=2, argv=0xbff37464, env=0xbff37470)
    at perlmain.c:113

-- System Information:
Debian Release: squeeze/sid
  APT prefers testing
  APT policy: (500, 'testing'), (500, 'stable'), (100, 'unstable')
Architecture: i386 (i686)

Kernel: Linux 2.6.28-1-686 (SMP w/2 CPU cores)
Locale: LANG=en_US.UTF-8, LC_CTYPE=en_US.UTF-8 (charmap=UTF-8)
Shell: /bin/sh linked to /bin/bash

Versions of packages liblist-moreutils-perl depends on:
ii  libc6                         2.9-4      GNU C Library: Shared libraries
ii  perl                          5.10.0-19  Larry Wall's Practical Extraction 
ii  perl-base [perlapi-5.10.0]    5.10.0-19  minimal Perl system

liblist-moreutils-perl recommends no packages.

liblist-moreutils-perl suggests no packages.

-- no debconf information