CVSROOT/loginfo.pl - diff

Return to loginfo.pl CVS log

Up to [LON-CAPA] / CVSROOT

version 1.1, 2002/02/06 17:53:44	version 1.4, 2004/04/08 20:20:01
Line 119 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\| ) {
	$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);