in reply to Need a quick file check/checkout script if anyone has a moment. :)
sub install { use Cvs; my $cvs = new Cvs ( '/path/to/repository/for/module', cvsroot => ':pserver:user@host:/path/to/cvs', password => 'secret' ) or die $Cvs::ERROR; $cvs->checkout('module'); use perl::net::utils; } eval "use perl::net::utils" or &install;
The CPAN docs for CVS can provide more info ...
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^2: Need a quick file check/checkout script if anyone has a moment. :)
by tachyon (Chancellor) on Oct 01, 2004 at 01:21 UTC |