bug-cvs
[Top][All Lists]
Advanced

[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-----




reply via email to

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