Как выполнить проверку CVS с помощью Perl?

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.