爲什麼Module :: Build的testcover會讓我「使用未初始化的值」警告？

Question

我對Module :: Build有點新，所以也許我做了錯誤的事情。當我將我的調度從「test」更改爲「testcover」時，我是唯一一個獲得警告的人嗎？ Devel :: Cover中是否存在錯誤？ Module :: Build中是否存在錯誤？我可能只是做了錯誤的事情。

我使用ActiveState Perl v5.10.0與Module :: Build版本0.31012和Devel :: Cover 0.64和Eclipse 3.4.1與EPIC 0.6.34爲我的IDE。

更新：我升級到Module :: Build 0.34，警告仍然輸出。

更新：看起來像B :: Deparse中的一個錯誤。希望有一天它會得到修復。

這裏是我的單元測試構建文件：

use strict; 
use warnings; 
use Module::Build; 

my $build = Module::Build->resume (
    properties => { 
    config_dir => '_build', 
    }, 
); 

$build->dispatch('test'); 

當我運行這個單元測試構建文件，我得到下面的輸出：

t\MyLib1.......ok 
t\MyLib2.......ok 
t\MyLib3.......ok 
All tests successful. 
Files=3, Tests=24, 0 wallclock secs (0.00 cusr + 0.00 csys = 0.00 CPU) 

但是，當我改變派遣線「 testcover'我得到以下輸出，其中總是包含一堆「按位和使用未初始化的值」的警告消息：

Deleting database D:/Documents and Settings/<username>/My Documents/<SNIP>/cover_db 
t\MyLib1.......ok 
Use of uninitialized value in bitwise and (&) at D:/Perl/lib/B/Deparse.pm line 4252. 
Use of uninitialized value in bitwise and (&) at D:/Perl/lib/B/Deparse.pm line 4252. 
t\MyLib2.......ok 
Use of uninitialized value in bitwise and (&) at D:/Perl/lib/B/Deparse.pm line 4252. 
Use of uninitialized value in bitwise and (&) at D:/Perl/lib/B/Deparse.pm line 4252. 
t\MyLib3.......ok 
Use of uninitialized value in bitwise and (&) at D:/Perl/lib/B/Deparse.pm line 4252. 
Use of uninitialized value in bitwise and (&) at D:/Perl/lib/B/Deparse.pm line 4252. 
All tests successful. 
Files=3, Tests=24, 0 wallclock secs (0.00 cusr + 0.00 csys = 0.00 CPU) 
Reading database from D:/Documents and Settings/<username>/My Documents/<SNIP>/cover_db 

---------------------------- ------ ------ ------ ------ ------ ------ ------ 
File       stmt bran cond sub pod time total 
---------------------------- ------ ------ ------ ------ ------ ------ ------ 
.../lib/ActivePerl/Config.pm 0.0 0.0 0.0 0.0 0.0 n/a 0.0 
...l/lib/ActiveState/Path.pm 0.0 0.0 0.0 0.0 100.0 n/a 4.8 
<SNIP> 
blib/lib/<SNIP>/MyLib2.pm  100.0 90.0 n/a 100.0 100.0 0.0 98.5 
blib/lib/<SNIP>/MyLib3.pm  100.0 90.9 100.0 100.0 100.0 0.6 98.0 
Total       14.4 6.7 3.8 18.3 20.0 100.0 11.6 
---------------------------- ------ ------ ------ ------ ------ ------ ------ 

Writing HTML output to D:/Documents and Settings/<username>/My Documents/<SNIP>/cover_db/coverage.html ... 
done. 

Answer 1

線路是：

$kid = $op->first; 
if ($kid->flags & OPf_SPECIAL # Line 4252 
and ($] < 5.009 ? $kid->pmflags & PMf_SKIPWHITE() 
     : $kid->reflags & RXf_SKIPWHITE())) { 
$exprs[0] = "' '"; 
} 

所以這似乎與$kid->flags沒有出於某種原因定義。

如果你

perl -MO=Deparse,-d -e my_test_script 

注意你明白了什麼：我只是檢查了repository version of B::Deparse，這是0.89版本，而安裝的版本我像Perl 5.10 0.83版本。

作爲臨時措施，您可以備份隨AS Perl附帶的Deparse.pm並將其替換爲當前版本以查看是否有所作爲？

Answer 2

B的作者:: Deparse發郵件給我，他能夠重現錯誤有以下一行代碼：

% perl -MO=Deparse -we '$r = qr/foo/; my @a = split($r, $_)' 
BEGIN { $^W = 1; } 
$r = qr/foo/; 
Use of uninitialized value in bitwise and (&) at /usr/lib/perl/5.10/B/Deparse.pm line 4250. 
my(@a) = split(/$r/, $_, 0); 
-e syntax OK 

然後他問我轉發臭蟲perlbug。我不知道他在說什麼。我希望這不會下降。你們任何一位正在閱讀這篇文章的Perl專家都想帶着這個球跑出來嗎？