[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Proposed patch to validate_repo.pl
From: |
Steven Levine |
Subject: |
Proposed patch to validate_repo.pl |
Date: |
Fri, 03 Mar 2006 23:37:18 GMT |
Hi,
Here's a proposed patch to validate_repo.pl. What is does is allow the
script to work on systems with drive letters or where CVSROOT has an
explicit :local:
The :local: is stripped before the find and forced for each cvs command.
Regards,
Steven
Regards,
Steven
--
--------------------------------------------------------------------------------------------
Steven Levine <steve53@earthlink.bogus.net> MR2/ICE 2.67 #10183
Warp/eCS/DIY/14.103a_W4 www.scoug.com irc.fyrelizard.com #scoug (Wed 7pm PST)
--------------------------------------------------------------------------------------------
Index: validate_repo.pl
===================================================================
RCS file: /sources/cvs/ccvs/contrib/validate_repo.pl,v
retrieving revision 1.1
diff -w -u -r1.1 validate_repo.pl
--- validate_repo.pl 6 Oct 2005 20:25:12 -0000 1.1
+++ validate_repo.pl 3 Mar 2006 23:29:48 -0000
@@ -237,6 +237,7 @@
# Fix trailing /'s
$cvsroot =~ s#[/\\]*$##o;
+ $cvsroot =~ s/^:local://; # Strip explict local
for (@scripts)
{
@@ -471,7 +472,7 @@
my %rinfo; # Info about revisions in the file.
my $revision;
- my $fh = new IO::File( "cvs -d $cvsroot rlog -N \"$file\""
+ my $fh = new IO::File( "cvs -d :local:$cvsroot rlog -N \"$file\""
. ($verbose ? "" : " 2>&1") . " |" )
or die( "unable to run `cvs rlog', help" );
@@ -603,7 +604,7 @@
# Allow binaries to be checked out as such. Otherwise, use -ko to avoid
# replacing keywords in the files.
my $kwmode = $finfo->{'kwmode'} eq 'b' ? '' : ' -ko';
- my $command = "cvs -d $cvsroot co$kwmode -npr $revision \"$file\"";
+ my $command = "cvs -d :local:$cvsroot co$kwmode -npr $revision \"$file\"";
my $ret_code;
verbose( "Executing `$command'.\n" );
if( @scripts )
- Proposed patch to validate_repo.pl,
Steven Levine <=