bug-cvs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: Minor chagnes to contrib/check_cvs.in


From: Donald Sharp
Subject: Re: Minor chagnes to contrib/check_cvs.in
Date: Mon, 24 Feb 2003 16:58:15 -0500
User-agent: Mutt/1.4i

Index: ChangeLog
===================================================================
RCS file: /home2/cvsroot/ccvs/contrib/ChangeLog,v
retrieving revision 1.91
diff -c -r1.91 ChangeLog
*** ChangeLog   24 Feb 2003 19:06:36 -0000      1.91
--- ChangeLog   24 Feb 2003 21:56:39 -0000
***************
*** 1,6 ****
--- 1,13 ----
  2003-02-24  Larry Jones  <address@hidden>
        and Donald Sharp <address@hidden>
  
+       * check_cvs.in: Filenames with funky characters need to be quoted
+       correctly.  Also Needed to modify regex due to locked revisions of
+       files cause output to be different.
+ 
+ 2003-02-24  Larry Jones  <address@hidden>
+       and Donald Sharp <address@hidden>
+ 
        * check_cvs.in: Fixed multiple symlinks in your cvsroot,
        improved CVSROOT/CVSROOT handling (Patch from Shlomo Reinstein
        <address@hidden).  Fixed retrieving revisions of ,v
Index: check_cvs.in
===================================================================
RCS file: /home2/cvsroot/ccvs/contrib/check_cvs.in,v
retrieving revision 1.2
diff -c -r1.2 check_cvs.in
*** check_cvs.in        24 Feb 2003 19:06:36 -0000      1.2
--- check_cvs.in        24 Feb 2003 21:56:40 -0000
***************
*** 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> )
      {
***************
*** 317,328 ****
        if( /^----------------------------$/ )
        {
            $ignore = 0;
          }
  
!         if( ( !$ignore ) && ( ( $revision ) = /^revision (.*)$/ ) )
!         {
!            push( @revisions, $revision );
!            $ignore = 1;
          }
      }
  
--- 317,329 ----
        if( /^----------------------------$/ )
        {
            $ignore = 0;
+             next;
          }
  
!       if( ( !$ignore ) && ( ( $revision ) = m/^revision (\S+)/ ) )
!       {
!             push( @revisions, $revision );
!             $ignore = 1;
          }
      }
  
***************
*** 376,382 ****
      my $cwd = getcwd();
      chdir( "/tmp" );
  
!     my $ret_code = 0xffff & system( "cvs -l co -n -p -r $revision '$file' > 
/dev/null 2>&1" );
  
      chdir( $cwd );
      return( 1 ) if ( $ret_code == 0 );
--- 377,383 ----
      my $cwd = getcwd();
      chdir( "/tmp" );
  
!     my $ret_code = 0xffff & system( "cvs -l co -n -p -r $revision \"$file\" > 
/dev/null 2>&1" );
  
      chdir( $cwd );
      return( 1 ) if ( $ret_code == 0 );




reply via email to

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