Skip Menu |

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

Report information
The Basics
Id: 48010
Status: rejected
Priority: 0/
Queue: List-MoreUtils

People
Owner: Nobody in particular
Requestors: ansgar [...] 2008.43-1.org
Cc:
AdminCc:

Bug Information
Severity: Important
Broken in: (no value)
Fixed in: (no value)



Subject: Segfault if mesh passed bad arrayref
Date: Mon, 20 Jul 2009 00:54:49 +0200
To: bug-List-MoreUtils [...] rt.cpan.org
From: Ansgar Burchardt <ansgar [...] 2008.43-1.org>
Hi, another bug forwarded from Debian (http://bugs.debian.org/521471). I can reproduce the problem with List-MoreUtils 0.22. Regards, Ansgar
Subject: Segfault if mesh passed bad arrayref
Date: Fri, 27 Mar 2009 16:10:31 -0400
To: Debian Bug Tracking System <submit [...] bugs.debian.org>
From: Anthony DeRobertis <anthony [...] derobert.net>
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
$ make && perl -Mblib -MList::MoreUtils=mesh -le '&mesh($foo, $bar);' Segmentation fault: 11 $ make && perl -Mblib -MList::MoreUtils=mesh -le 'mesh($foo, $bar);' Type of arg 1 to List::MoreUtils::Impl::Tassilo::mesh must be array (not scalar dereference) at -e line 1, near "$bar)" Type of arg 2 to List::MoreUtils::Impl::Tassilo::mesh must be array (not scalar dereference) at -e line 1, near "$bar)" Execution of -e aborted due to compilation errors. PEBCAK