Lines Matching refs:cvsroot
35 validate_repo.pl [--verbose!] [--cvsroot=CVSROOT] [--exec=SCRIPT]...
67 =item C<-d> or C<--cvsroot=CVSROOT>
111 validate_repo.pl -d /another/cvsroot --verbose --exec '
143 $cvsroot
174 # $cvsroot - The CVS repository to search through.
204 'cvsroot|d=s' => \$cvsroot,
222 if( !$cvsroot && -f "CVS/Root" && -r "CVS/Root" )
225 $cvsroot = $file->getline;
226 chomp $cvsroot;
228 $cvsroot = $ENV{'CVSROOT'} unless $cvsroot;
229 pod2usage( "error: Must set CVSROOT" ) unless $cvsroot;
231 if( $cvsroot =~ /^:\w+:/ && $cvsroot !~ /^:local:/
232 || $cvsroot =~ /@/ )
256 $directory_to_look_at = File::Spec->catfile( $cvsroot,
264 die( "Encountered too many symlinks for CVSROOT ($cvsroot)\n" )
334 # $cvsroot - The CVS repository to search through
350 $path =~ s#^$cvsroot/(\./)*##;
389 # $file - The path of the file to look at, relative to $cvsroot and
450 # $cvsroot - the CVSROOT we are examining
471 my $fh = new IO::File( "cvs -d $cvsroot rlog -N \"$file\""
603 my $command = "cvs -d $cvsroot co$kwmode -npr $revision \"$file\"";
618 my $status = system $script, $cvsroot, $file, $revision,
620 warn "`$script $cvsroot $file $revision "
628 @_ = ($cvsroot, $file, $revision, $fh);
630 warn "script $count ($cvsroot, $file, $revision, $fh) exited abnormally: $@"
799 my( $cvsroot ) = @_;
827 my $checkoutlist_file = "$cvsroot/CVSROOT/checkoutlist";