bug-cvs
[Top][All Lists]
Advanced

[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 <address@hidden>  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 )

reply via email to

[Prev in Thread] Current Thread [Next in Thread]