Question

为什么Cvs CPAN模块（perl5.8，Cvs模块版本0.06）没有正确识别已检出文件的状态？

$ echo $CVSROOT
:pserver:MYUSER@pserver.COMPANY.com:/u1/cvs_root

$ cvs co dev/script1.pl
U dev/script1.pl

$ cvs status dev/script1.pl | grep Status
File: script1.pl          Status: Up-to-date

$ cat cvs.pl

use Cvs; 
my $cvs = new Cvs("/u1/cvs_root",cvsroot => $ENV{CVSROOT}, password =>"****")
     or die $Cvs::ERROR; 
my $status = $cvs->status("dev/script1.pl"); 
print "STATUS: " . $status->status() . "\n"'

$ ./cvs.pl
STATUS: Needs Checkout

“Needs Checkout”是CVS为尚未签出的有效CVS文件返回的状态。是什么给了什么？

Answer 1

cvs 0.06是一个真正的（> 8年）旧模块。即使0.07版本也差不多8年了我自己不使用cvs，但我可以想象这个旧模块存在很多问题......

为什么`Cvs` CPAN模块没有正确识别已经检出的文件的状态？

1 个答案: