为什么CvsCPAN 模块（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
“需要签出”是 CVS 针对尚未签出的有效 CVS 文件返回的状态。是什么赋予了？