| Subject: | Uplevel.t dies when run on 5.9.4 |
Sub::Uplevel fails a test in t/Uplevel.t and then just dies later on
when run with the current bleadperl.
josh@lik:~/.cpan/build/Sub-Uplevel-0.12$ prove5.9.4 -b -v t/Uplevel.t
t/Uplevel....1..20
ok 1 - use Sub::Uplevel;
ok 2 - Sub::Uplevel->can(uplevel)
ok 3 - main->can(uplevel)
ok 4 - top-level caller() not screwed up
ok 5 - die() not screwed up
ok 6 - uplevel()
ok 7 - die() fooled
ok 8 - warn() fooled
ok 9 - croak() fooled
ok 10 - caller() not screwed up
ok 11 - die() not screwed up
ok 12 - carp() fooled
ok 13 - main->can(fooble)
not ok 14 - caller check
# Failed test (t/Uplevel.t at line 122)
ok 15 - shallow caller
ok 16 - deep caller()
ok 17 - deep caller() + uplevel
ok 18 - nested uplevel()s
ok 19 - deep caller check of parent sees real calling package
ok 20 - deep caller check of grandparent sees package above uplevel
# Looks like you failed 1 tests of 20.
dubious
Test returned status 1 (wstat 256, 0x100)
DIED. FAILED test 14
Failed 1/20 tests, 95.00% okay
Failed Test Stat Wstat Total Fail List of Failed
-------------------------------------------------------------------------------
t/Uplevel.t 1 256 20 1 14
Failed 1/1 test scripts. 1/20 subtests failed.
Files=1, Tests=20, 0 wallclock secs ( 0.05 cusr + 0.01 csys = 0.06 CPU)
Failed 1/1 test programs. 1/20 subtests failed.
josh@lik:~/.cpan/build/Sub-Uplevel-0.12$ perl5.9.4 -V
Summary of my perl5 (revision 5 version 9 subversion 4 patch 28402)
configuration:
Platform:
osname=linux, osvers=2.6.15-25-k7, archname=i686-linux
uname='linux lik 2.6.15-25-k7 #1 smp preempt wed jun 14 11:43:20 utc
2006 i686 gnulinux '
config_args='-Dusedevel -Dprefix=/home/josh/bin/perl/5.9.4 -des'
hint=recommended, useposix=true, d_sigaction=define
useithreads=undef, usemultiplicity=undef
useperlio=define, d_sfio=undef, uselargefiles=define, usesocks=undef
use64bitint=undef, use64bitall=undef, uselongdouble=undef
usemymalloc=n, bincompat5005=undef
Compiler:
cc='cc', ccflags ='-fno-strict-aliasing -pipe
-Wdeclaration-after-statement -I/usr/local/include -D_LARGEFILE_SOURCE
-D_FILE_OFFSET_BITS=64',
optimize='-O2',
cppflags='-fno-strict-aliasing -pipe -Wdeclaration-after-statement
-I/usr/local/include'
ccversion='', gccversion='4.0.3 (Ubuntu 4.0.3-1ubuntu5)',
gccosandvers=''
intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=1234
d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12
ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t',
lseeksize=8
alignbytes=4, prototype=define
Linker and Libraries:
ld='cc', ldflags =' -L/usr/local/lib'
libpth=/usr/local/lib /lib /usr/lib
libs=-lnsl -ldb -ldl -lm -lcrypt -lutil -lc
perllibs=-lnsl -ldl -lm -lcrypt -lutil -lc
libc=/lib/libc-2.3.6.so, so=so, useshrplib=false, libperl=libperl.a
gnulibc_version='2.3.6'
Dynamic Linking:
dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-Wl,-E'
cccdlflags='-fpic', lddlflags='-shared -L/usr/local/lib'
Characteristics of this binary (from libperl):
Compile-time options: PERL_DONT_CREATE_GVSV PERL_MALLOC_WRAP
USE_LARGE_FILES USE_PERLIO
Built under linux
Compiled at Jun 21 2006 17:24:34
@INC:
/home/josh/bin/perl/5.9.4/lib/5.9.4/i686-linux
/home/josh/bin/perl/5.9.4/lib/5.9.4
/home/josh/bin/perl/5.9.4/lib/site_perl/5.9.4/i686-linux
/home/josh/bin/perl/5.9.4/lib/site_perl/5.9.4
.