[perl #61072] Coro and Test::More's is_deep not playing nice together.
perlbug-...@perl.org
# Please include the string: [perl #61072]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=61072 >
This is a bug report for perl from rlpo...@digitalkingdom.org,
generated with the help of perlbug 1.36 running under perl 5.10.0.
-----------------------------------------------------------------
[Please enter your report here]
Given:
- ---------
use Coro;
use Test::More;
async {
plan tests => 1;
is_deeply( [ 'login', 'test user' ], [ 'login', 'test user' ] );
};
cede;
- ---------
The output is:
1..1
Use of uninitialized value in method with known name at /usr/share/perl/5.10/Test/Builder.pm line 476.
Use of uninitialized value in method with known name at /usr/share/perl/5.10/Test/Builder.pm line 476.
Use of uninitialized value in method with known name at /usr/share/perl/5.10/Test/Builder.pm line 476.
Use of uninitialized value in method with known name at /usr/share/perl/5.10/Test/Builder.pm line 476.
ok 1
I don't know that this isn't a Coro problem, but I'm hoping there's
a workaround in Test::More by itself.
Note that the code seems to be doing its job just fine.
Live 476 is:
return $self->_try( sub { ref $thing && $thing->isa('UNIVERSAL') } ) ? 1 : 0;
Replacing it with:
return $self->_try( sub { ref $thing } ) ? 1 : 0;
makes the noise stop.
-Robin
[Please do not change anything below this line]
-----------------------------------------------------------------
---
Flags:
category=library
severity=low
---
Site configuration information for perl 5.10.0:
Configured by Debian Project at Sun Nov 2 07:30:08 UTC 2008.
Summary of my perl5 (revision 5 version 10 subversion 0) configuration:
Platform:
osname=linux, osvers=2.6.22-3-vserver-amd64, archname=x86_64-linux-gnu-thread-multi
uname='linux excelsior 2.6.22-3-vserver-amd64 #1 smp tue feb 12 10:01:41 utc 2008 x86_64 gnulinux '
config_args='-Dusethreads -Duselargefiles -Dccflags=-DDEBIAN -Dcccdlflags=-fPIC -Darchname=x86_64-linux-gnu -Dprefix=/usr -Dprivlib=/usr/share/perl/5.10 -Darchlib=/usr/lib/perl/5.10 -Dvendorprefix=/usr -Dvendorlib=/usr/share/perl5 -Dvendorarch=/usr/lib/perl5 -Dsiteprefix=/usr/local -Dsitelib=/usr/local/share/perl/5.10.0 -Dsitearch=/usr/local/lib/perl/5.10.0 -Dman1dir=/usr/share/man/man1 -Dman3dir=/usr/share/man/man3 -Dsiteman1dir=/usr/local/man/man1 -Dsiteman3dir=/usr/local/man/man3 -Dman1ext=1 -Dman3ext=3perl -Dpager=/usr/bin/sensible-pager -Uafs -Ud_csh -Ud_ualarm -Uusesfio -Uusenm -DDEBUGGING=-g -Doptimize=-O2 -Duseshrplib -Dlibperl=libperl.so.5.10.0 -Dd_dosuid -des'
hint=recommended, useposix=true, d_sigaction=define
useithreads=define, usemultiplicity=define
useperlio=define, d_sfio=undef, uselargefiles=define, usesocks=undef
use64bitint=define, use64bitall=define, uselongdouble=undef
usemymalloc=n, bincompat5005=undef
Compiler:
cc='cc', ccflags ='-D_REENTRANT -D_GNU_SOURCE -DDEBIAN -fno-strict-aliasing -pipe -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64',
optimize='-O2 -g',
cppflags='-D_REENTRANT -D_GNU_SOURCE -DDEBIAN -fno-strict-aliasing -pipe -I/usr/local/include'
ccversion='', gccversion='4.3.2', gccosandvers=''
intsize=4, longsize=8, ptrsize=8, doublesize=8, byteorder=12345678
d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=16
ivtype='long', ivsize=8, nvtype='double', nvsize=8, Off_t='off_t', lseeksize=8
alignbytes=8, prototype=define
Linker and Libraries:
ld='cc', ldflags =' -L/usr/local/lib'
libpth=/usr/local/lib /lib /usr/lib /lib64 /usr/lib64
libs=-lgdbm -lgdbm_compat -ldb -ldl -lm -lpthread -lc -lcrypt
perllibs=-ldl -lm -lpthread -lc -lcrypt
libc=/lib/libc-2.7.so, so=so, useshrplib=true, libperl=libperl.so.5.10.0
gnulibc_version='2.7'
Dynamic Linking:
dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-Wl,-E'
cccdlflags='-fPIC', lddlflags='-shared -O2 -g -L/usr/local/lib'
Locally applied patches:
---
@INC for perl 5.10.0:
/etc/perl
/usr/local/lib/perl/5.10.0
/usr/local/share/perl/5.10.0
/usr/lib/perl5
/usr/share/perl5
/usr/lib/perl/5.10
/usr/share/perl/5.10
/usr/local/lib/site_perl
.
---
Environment for perl 5.10.0:
HOME=/home/rlpowell
LANG=en_US.UTF-8
LANGUAGE (unset)
LD_LIBRARY_PATH (unset)
LOGDIR (unset)
PATH= :.:/home/rlpowell/bin:/usr/bin:/bin:/etc:/usr/etc:/usr/sbin:/sbin:/usr/local/bin:/usr/pkg/bin
PERL_BADLANG (unset)
SHELL=/usr/bin/zsh
Marc Lehmann
> # New Ticket Created by rlpo...@digitalkingdom.org
> # Please include the string: [perl #61072]
> # in the subject line of all future correspondence about this issue.
> # <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=61072 >
Stumbled over this accidentally :)
> Given:
The reason for this is that Coro patches the %SIG vtbl and manages __DIE__
and __WARN_ itself, and 5.10 apparently doesn't like undef as die handler.
The code in question is in an eval and dies, and this causes the warning
because $SIG{__DIE__} is undef (i.e. "uninitialised"). I fixed Coro to use
a null pointer instead and this silences the warnings.
> I don't know that this isn't a Coro problem,
It was.
> but I'm hoping there's
> a workaround in Test::More by itself.
One *could* use UNIVERSAL::isa here:
> return $self->_try( sub { ref $thing && $thing->isa('UNIVERSAL') } ) ? 1 : 0;
which would be faster as it avoids the exception (and the ref test), and
would avoid the problem in *this* instance, but waiting for a new Coro
release is probably faster than waiting for 5.10.1, even if this were
changed :)
Greetings,
--
The choice of a Deliantra, the free code+content MORPG
-----==- _GNU_ http://www.deliantra.net
----==-- _ generation
---==---(_)__ __ ____ __ Marc Lehmann
--==---/ / _ \/ // /\ \/ / p...@goof.com
-=====/_/_//_/\_,_/ /_/\_\