[Cvs-cvs] ccvs/contrib ChangeLog validate_repo.pl

[Mark D. Baushke]

CVSROOT:        /cvsroot/cvs
Module name:    ccvs
Branch:         
Changes by:     Mark D. Baushke <address@hidden>        06/03/12 20:38:21

Modified files:
        contrib        : ChangeLog validate_repo.pl 

Log message:
        * validate_repo.pl (main, get_history, check_revision):
        Accept :local: method and use :local: internall for portability to
        systems with drive letters in pathnames.
        (patch suggested by Steven Levine).

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/cvs/ccvs/contrib/ChangeLog.diff?tr1=1.177&tr2=1.178&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/cvs/ccvs/contrib/validate_repo.pl.diff?tr1=1.1&tr2=1.2&r1=text&r2=text

Patches:
Index: ccvs/contrib/ChangeLog
diff -u ccvs/contrib/ChangeLog:1.177 ccvs/contrib/ChangeLog:1.178
--- ccvs/contrib/ChangeLog:1.177        Wed Oct 12 14:14:17 2005
+++ ccvs/contrib/ChangeLog      Sun Mar 12 20:38:20 2006
@@ -1,3 +1,10 @@
+2006-03-12  Mark D. Baushke  <address@hidden>
+
+       * validate_repo.pl (main, get_history, check_revision):
+       Accept :local: method and use :local: internall for portability to
+       systems with drive letters in pathnames.
+       (patch suggested by Steven Levine).
+
 2005-10-11  Derek Price  <address@hidden>
 
        * log_accum.pl: Allow arbitrary arguments to be specified for
Index: ccvs/contrib/validate_repo.pl
diff -u ccvs/contrib/validate_repo.pl:1.1 ccvs/contrib/validate_repo.pl:1.2
--- ccvs/contrib/validate_repo.pl:1.1   Thu Oct  6 20:25:12 2005
+++ ccvs/contrib/validate_repo.pl       Sun Mar 12 20:38:21 2006
@@ -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 )