Diff for /CVSROOT/loginfo.pl between versions 1.2 and 1.6

version 1.2, 2002/11/15 16:25:20 version 1.6, 2008/02/11 20:00:15
Line 94  my (@added_files, @removed_files, @modif Line 94  my (@added_files, @removed_files, @modif
 while (<FC>) {  while (<FC>) {
  chop;   chop;
  my ($file, $old, $new) = split(",");   my ($file, $old, $new) = split(",");
         if ($file =~ m|TexConvert/tt.dynamic|) { next; }  
  if($old eq "NONE") {   if($old eq "NONE") {
  push @added_files, $file;   push @added_files, $file;
  } elsif($new eq "NONE") {   } elsif($new eq "NONE") {
Line 120  my $diffmsg = ''; Line 119  my $diffmsg = '';
   
 foreach my $info (@modified_files_info) {  foreach my $info (@modified_files_info) {
  my ($file, $old, $new) = @$info;   my ($file, $old, $new) = @$info;
           if ($file =~ m|TexConvert/tt.dynamic|  ||
       $file =~ m|foxr/londtest| ||
       $file =~ m|purdue| ||
               $file =~ m|vcu/| ) {
    $diffmsg='Diffs for '.$file.' not shown.'."\n";
    next;
    }
  open(LOG, "$cvs -Qn rdiff -r $old -r $new -u $file|") || die;   open(LOG, "$cvs -Qn rdiff -r $old -r $new -u $file|") || die;
  while(<LOG>) { s/\r\n/\n/; $diffmsg .= $_; }   while(<LOG>) { s/\r\n/\n/; $diffmsg .= $_; }
  close(LOG);   close(LOG);

Removed from v.1.2  
changed lines
  Added in v.1.6


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>