comp.lang.perl.modules: Devel::Cover failing with 'bizarre copy of hash in leave' error
Devel::Cover failing with 'bizarre copy of hash in leave' error
Source: http://coding.derkeiler.com/Archive/Perl/comp.lang.perl.modules/2004−10/0193.html
From: Jim Keenan (jkeen_via_google_at_yahoo.com) Date: 10/21/04
Date: 21 Oct 2004 13:09:00 −0700
(This message was posted to the perl.qa list on October 13, but for some reason has not yet appeared.) I would like to report a problem I am having applying Devel::Cover to two of my CPAN distributions. The two distributions in question, Data::Presenter and Mail::Digest::Tools, have repeatedly passed the automated testing processes provided by testers.cpan.org. Moreover, ActiveState and others have been able to make 'ppm' and 'rpm' versions. So the code tests satisfactorily −− but not when running through the Devel::Cover module for coverage analysis. I want Devel::Cover to work well because I want to use it as part of the Phalanx project (http://qa.perl.org/phalanx). ##### GENERAL PROBLEM ##### Data::Presenter and Mail::Digest::Tools pass all their tests in the normal installation sequence: perl Makefile.PL; make; make test But both distributions fail −− with exactly the same error reported −− when I follow the sequence advised in the Devel::Cover docs for testing the coverage provided by my test suites: perl Makefile.PL; make cover −delete HARNESS_PERL_SWITCHES=−MDevel::Cover make test In the case of Data::Presenter, the code fails in each of the five tests in the test suite with this message: Bizarre copy of HASH in leave at ~/Data−Presenter−0.66/blib/lib/Data/Presenter.pm line 321. Devel::Cover failing with 'bizarre copy of hash in leave' error 1
comp.lang.perl.modules: Devel::Cover failing with 'bizarre copy of hash in leave' error In the case of Mail::Digest::Tools, the code fails in two of the three tests in the test suite with this message: Bizarre copy of HASH in leave at ~/Mail−Digest−Tools−2.1/blib/lib/Mail/Digest/Tools.pm line 542. According to perldiag, that message is a particular instance of a more general error message: Bizarre copy of %s in %s: (P) Perl detected an attempt to copy an internal value that is not copyable. perldiag notes that a class (P) error is "An internal error you should never see (trappable)." I know what a hash is. I'm not sure what a 'leave' is in this context, though perlcall has a reference to a leave in connection with the C−Perl API. And I clearly have no idea what a "bizarre copy" of a hash is. And please note, this error only appears when testing with Devel::Cover. If I take the same 'make−d' code and just call 'make test', everything is A−OK. ##### DETAILED DISCUSSION OF PROBLEMS ##### In Data::Presenter, the coverage/testing process fails in each of five cases at the same method call, which looks like this: @columns_selected = ('timeslot', 'instructor', 'ward', 'groupname', 'room', 'groupid'); $sorted_data = $dp−>sort_by_column(\@columns_selected); ok( (1 == sdtest(\@columns_selected, $sorted_data)), 'valid sorted data hash');# 230 The code is failing *before* (not in) test 230. It's failing inside method sort_by_column(). Specifically, it's failing inside a private function called inside method sort_by_column() known as _key_constructor(): sub _key_constructor { my ($self, $argsref) = @_; my @args = @$argsref; # for convenience my @keys = (); foreach my $k (keys %$self) { unless ($reserved{$k}) { my @temp = (); foreach my $i (@args) { push @temp, ${%$self}{$k}−>[$fieldlabels{$i}]; ### ABOVE IS LINE 321 of Presenter.pm } push @temp, $k; push(@keys, \@temp); Devel::Cover failing with 'bizarre copy of hash in leave' error 2
comp.lang.perl.modules: Devel::Cover failing with 'bizarre copy of hash in leave' error } } return @keys; } In the case of Data::Presenter's failure, the hash whose copy is 'bizarre' is reported as being in line 321. In Mail::Digest::Tools, the coverage/testing process fails in two of the three files in the test suite at the same function call, which looks like this: process_new_digests(\%pbml_config_in, \%pbml_config_out); The point at which the code is failing is, once again, in a private function inside the public function. In this case, the private function is called _update_digest_logs() and looks like this: sub _update_digests_log { my ($hashlog_ref, $logfile) = @_; my ($logstring); foreach ( sort keys %$hashlog_ref ) { $logstring .= $_ . ';' . ${%$hashlog_ref}{$_}[0] . ';' . ${%$hashlog_ref}{$_}[1]. "\n"; ### ABOVE IS LINE 542 in Mail::Digest::Tools.pm } open(LOG, ">$logfile") || die "cannot open $logfile for writing: $!"; print LOG $logstring; close(LOG) || die "cannot close $logfile: $!"; } In the case of Mail::Digest::Tool's failure, the hash whose copy is 'bizarre' is reported as being in line 542. I could go on, but this is enough for a first posting. ##### MAIN QUESTION ##### Has anyone else had their utilization of Devel::Cover fail with this 'bizarre copy of hash in leave' error? Does anyone have a clue as to what is going on? Thanks in advance. Jim Keenan
Devel::Cover failing with 'bizarre copy of hash in leave' error
3