[perl #21890] Devel::Coverage does not work with 5.8.0
Jarkko Hietaniemi
# Please include the string: [perl #21890]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt2/Ticket/Display.html?id=21890 >
This is a bug report for perl from j...@lyta.hut.fi,
generated with the help of perlbug 1.34 running under perl v5.8.0.
-----------------------------------------------------------------
[Please enter your report here]
$ perl -d:Coverage -e 'sub foo{} sub bar{} foo'
No DB::DB routine defined at /u/vieraat/vieraat/jhi/Perl/platform/OSF1/lib/perl5/site_perl/5.8.0/Devel/Coverage.pm line 4.
BEGIN failed--compilation aborted at /u/vieraat/vieraat/jhi/Perl/platform/OSF1/lib/perl5/site_perl/5.8.0/Devel/Coverage.pm line 4.
Compilation failed in require.
BEGIN failed--compilation aborted.
$
Devel::Coverage is a freshly installed 0.2. A naughty workaround is
to modify the Coverage.pm to have a dummy sub DB::DB {}, but that
certainly doesn't make one feel clean.
[Please do not change anything below this line]
-----------------------------------------------------------------
---
Flags:
category=core
severity=medium
---
Site configuration information for perl v5.8.0:
Configured by jhi at Wed Aug 7 21:21:34 EET DST 2002.
Summary of my perl5 (revision 5.0 version 8 subversion 0) configuration:
Platform:
osname=dec_osf, osvers=4.0d, archname=alpha-dec_osf-thread-multi
uname='osf1 lyta.hut.fi v4.0 878 alpha '
config_args='-des -Duseithreads -Doptimize=-g -Dprefix=/u/vieraat/vieraat/jhi/Perl/platform/OSF1'
hint=recommended, useposix=true, d_sigaction=define
usethreads=define use5005threads=undef 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 ='-pthread -std -fprm d -ieee -DDEBUGGING -DLANGUAGE_C',
optimize='-g',
cppflags='-pthread -std -ieee -DDEBUGGING -DLANGUAGE_C'
ccversion='V5.6-082', gccversion='', gccosandvers=''
intsize=4, longsize=8, ptrsize=8, doublesize=8, byteorder=12345678
d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=8
ivtype='long', ivsize=8, nvtype='double', nvsize=8, Off_t='off_t', lseeksize=8
alignbytes=8, prototype=define
Linker and Libraries:
ld='ld', ldflags =''
libpth=/usr/shlib /usr/ccs/lib /usr/lib/cmplrs/cc /usr/lib /var/shlib
libs=-ldbm -ldb -lm -lutil -lpthread -lexc
perllibs=-lm -lutil -lpthread -lexc
libc=/usr/shlib/libc.so, so=so, useshrplib=true, libperl=libperl.so
gnulibc_version=''
Dynamic Linking:
dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags=' -Wl,-rpath,/u/vieraat/vieraat/jhi/Perl/platform/OSF1/lib/perl5/5.8.0/alpha-dec_osf-thread-multi/CORE'
cccdlflags=' ', lddlflags='-shared -expect_unresolved "*" -msym -std'
Locally applied patches:
---
@INC for perl v5.8.0:
/u/vieraat/vieraat/jhi/Perl/platform/OSF1/lib/perl5/5.8.0/alpha-dec_osf-thread-multi
/u/vieraat/vieraat/jhi/Perl/platform/OSF1/lib/perl5/5.8.0
/u/vieraat/vieraat/jhi/Perl/platform/OSF1/lib/perl5/site_perl/5.8.0/alpha-dec_osf-thread-multi
/u/vieraat/vieraat/jhi/Perl/platform/OSF1/lib/perl5/site_perl/5.8.0
/u/vieraat/vieraat/jhi/Perl/platform/OSF1/lib/perl5/site_perl
.
---
Environment for perl v5.8.0:
HOME=/u/vieraat/vieraat/jhi
LANG=C
LANGUAGE (unset)
LC_ALL=fi_FI.ISO8859-1
LC_CTYPE=fi_FI.ISO8859-1
LD_LIBRARY_PATH=/tmp/jhi/perl
LOGDIR (unset)
PATH=/u/vieraat/vieraat/jhi/Perl/bin:/u/vieraat/vieraat/jhi/Perl/bin:/u/vieraat/vieraat/jhi/.s:/u/vieraat/vieraat/jhi/.b/OSF1:/c/bin:/p/bin:/p/adm/bin:/usr/bin:/usr/sbin:/sbin:/bin:/usr/ccs/bin:/usr/lib:/etc:/lib:/p/X6/bin:/p/X5/bin:/usr/bin/X11:/usr/lbin:/usr/sbin/acct:/usr/tcb/bin:/tcb/bin:/usr/field:/u/vieraat/vieraat/jhi
PERL_BADLANG (unset)
SHELL=/bin/zsh
Randy J. Ray
this.
Randy
--
-------------------------------------------------------------------------------
Randy J. Ray | Men occasionally stumble over the truth, but most of them
rj...@tellme.com | pick themselves up and hurry off as if nothing had happened.
+1 650 930-9097 | -- Sir Winston Churchill
Jarkko Hietaniemi
> Noted. I'll forward this report to my home address, so that I can test for
> this.
Since (I assume) D::C worked with 5.6.1 and hasn't changed since, I'd put
the blame on 5.8.0, not D::C...
--
Jarkko Hietaniemi <j...@iki.fi> http://www.iki.fi/jhi/ "There is this special
biologist word we use for 'stable'. It is 'dead'." -- Jack Cohen
Stas Bekman
> On Tue, Apr 08, 2003 at 08:06:14PM -0000, Randy J. Ray wrote:
>
>>Noted. I'll forward this report to my home address, so that I can test for
>>this.
>
>
> Since (I assume) D::C worked with 5.6.1 and hasn't changed since, I'd put
> the blame on 5.8.0, not D::C...
D::C is not the only one to break because of that. Apache::DB (mod_perl 1) has
the same problem. As you can see at the bottom of this thread:
http://www.gossamer-threads.com/archive/mod_perl_C1/modperl_F7/Trouble_with_Apache::DB_P45314/
I've "fixed" it in Apache::DB with:
--- Apache-DB-0.06/DB.pm.old 1999-10-12 07:50:33.000000000 +0800
+++ Apache-DB-0.06/DB.pm 2002-11-29 18:03:47.000000000 +0800
@@ -14,6 +14,7 @@
$Apache::Registry::MarkLine = 0;
sub init {
+ *DB::DB = sub {} unless DB->can("DB"); # temp definition for 5.8.0+
if(init_debugger()) {
warn "[notice] Apache::DB initialized in child $$\n";
}
__________________________________________________________________
Stas Bekman JAm_pH ------> Just Another mod_perl Hacker
http://stason.org/ mod_perl Guide ---> http://perl.apache.org
mailto:st...@stason.org http://use.perl.org http://apacheweek.com
http://modperlbook.org http://apache.org http://ticketmaster.com
Vadim Konovalov
> -----------------------------------------------------------------
> [Please enter your report here]
>
> $ perl -d:Coverage -e 'sub foo{} sub bar{} foo'
> No DB::DB routine defined at
> /u/vieraat/vieraat/jhi/Perl/platform/OSF1/lib/perl5/site_perl/
> 5.8.0/Devel/Coverage.pm line 4.
> BEGIN failed--compilation aborted at
> /u/vieraat/vieraat/jhi/Perl/platform/OSF1/lib/perl5/site_perl/
> 5.8.0/Devel/Coverage.pm line 4.
> Compilation failed in require.
> BEGIN failed--compilation aborted.
> $
something very similar was happening on GUI debugger, ptkdb, and people
there did a workaround similar to yours in their compatibility patch. So, if
you'll download fresh copy of devel::ptkdb, you'll see that note in comments
at the very beginning:
....
##
## Expedient fix for perl 5.8.0. True DB::DB is further down.
##
##
sub DB {}
....
So, this misbehaviour was already noticed before...