如何使用Perl执行CVS结帐？

Question

下面的代码什么都不打印。请帮助我。

use Cvs;

my $obj = new Cvs cvsroot => ":pserver:pramodh\@129.227.152.22:/data/cvs" or die $Cvs::ERROR;

$obj->checkout(package) || print "ERROR";
my @modules = $obj->module_list();
print "@modules";

如果我在命令行上工作，它可以正常使用这些命令：

[root@localhost pramodh]# CVSROOT=:pserver:pramodh@129.227.152.22:/data/cvs
[root@localhost pramodh]# export CVSROOT
[root@localhost pramodh]# cvs login
Logging in to :pserver:pramodh@129.227.152.22:2401/data/cvs
CVS password:pramodh
[root@localhost pramodh]# cvs co packages
cvs checkout: Updating packages

Answer 1

您需要引用checkout参数。

$obj->checkout('packages') or warn "ERROR";

package是Perl中的保留关键字。