Diff for /CVSROOT/loginfo.pl between versions 1.4 and 1.8

version 1.4, 2004/04/08 20:20:01 version 1.8, 2008/10/22 22:18:41
Line 120  my $diffmsg = ''; Line 120  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|  ||          if ($file =~ m|TexConvert/tt.dynamic|  ||
     $file =~ m|foxr/londtest| ) {      $file =~ m|foxr/londtest| ||
       $file =~ m|purdue| ||
               $file =~ m|vcu/| ||
               $file =~ m|modules/[^/]+/private/| ) {
  $diffmsg='Diffs for '.$file.' not shown.'."\n";   $diffmsg='Diffs for '.$file.' not shown.'."\n";
  next;   next;
  }   }
Line 134  foreach my $info (@modified_files_info) Line 137  foreach my $info (@modified_files_info)
 foreach my $file (@added_files) {  foreach my $file (@added_files) {
  next if $file =~ /\.(gif|jpe|jpe?g|pdf|png|exe|class|tgz|tar.gz|jar)$/i   next if $file =~ /\.(gif|jpe|jpe?g|pdf|png|exe|class|tgz|tar.gz|jar)$/i
  or $file !~ /\./;   or $file !~ /\./;
           if ($file =~ m|TexConvert/tt.dynamic|  ||
               $file =~ m|foxr/londtest| ||
               $file =~ m|purdue|  ||
               $file =~ m|vcu/| ||
               $file =~ m|modules/[^/]+/private/| ) {
                   $diffmsg='Contents of added file: '.$file.' not shown.'."\n";
                   next;
           }
  $diffmsg .= "\nIndex: $file\n+++ $file\n";   $diffmsg .= "\nIndex: $file\n+++ $file\n";
  open(LOG, "$cvs -Qn checkout -p -r1.1 $file |") || die;   open(LOG, "$cvs -Qn checkout -p -r1.1 $file |") || die;
  while(<LOG>) { s/\r\n/\n/; $diffmsg .= $_; }   while(<LOG>) { s/\r\n/\n/; $diffmsg .= $_; }

Removed from v.1.4  
changed lines
  Added in v.1.8


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