[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Proposed patch to validate_repo.pl
From: |
Mark D. Baushke |
Subject: |
Re: Proposed patch to validate_repo.pl |
Date: |
Sun, 12 Mar 2006 12:43:08 -0800 |
-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1
Hi Steven,
I have committed your patch to the FEATURE branch of cvs.
It will be a part of cvs 1.12.14 whenever that gets released.
Thanks,
-- Mark
PS: Please note for future reference that the use of 'bogus.net' in your
e-mail addresses is a bad idea. There are many discussions about masking
your domainname with a bogus one on the info-cvs@gnu.org list.
Steven Levine <steve53@earthlink.bogus.net> writes:
> 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)
> --------------------------------------------------------------------------------------------
> --===_4408D30E_==
> Content-Type: text/plain; name="validate_repo.diff"
>
>
> 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 )
>
> --===_4408D30E_==
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.2.2 (FreeBSD)
iD8DBQFEFIfcCg7APGsDnFERApUjAKDg4BujUBLUNamBSR/td++bg1uLZwCgmL9z
burr99Vgd95Kv7T8V15kC4k=
=SMnr
-----END PGP SIGNATURE-----