Re: Minor chagnes to contrib/check_cvs.in

[Larry Jones]

Donald Sharp writes:
>
> *** 307,313 ****
>       my $ignore = 1;
>       my $save_ = $_;
>   
> !     open( FILE, "rlog -N '$file' 2>&1 |" ) or die( "unable to run rlog, 
> help" );
>   
>       while( <FILE> )
>       {
> --- 307,313 ----
>       my $ignore = 1;
>       my $save_ = $_;
>   
> !     open( FILE, "rlog -N \"$file\" 2>&1 |" ) or die( "unable to run rlog, 
> help" );
>   
>       while( <FILE> )
>       {

That's necessary, but not sufficient.  Now it fails for file names
containing ", $, `, or \.  This time, however, I embraced the learning
oportunity and added a few:

        $file =~ s/(["\$`\\])/\\$1/g;

I've checked in the result.  Thanks again!

-Larry Jones

Hmm... That might not be politic. -- Calvin