loncom/build/CHECKRPMS - diff

Return to CHECKRPMS CVS log

Up to [LON-CAPA] / loncom / build

version 1.3, 2006/10/04 19:47:33	version 1.4, 2006/10/05 17:44:38
Line 181 sub check_with_up2date {	Line 181 sub check_with_up2date {
if (open (PIPE, "$up2date -l 2>&1 \|")) {	if (open (PIPE, "$up2date -l 2>&1 \|")) {
my @result=<PIPE>;	my @result=<PIPE>;
close(PIPE);	close(PIPE);
	my $output;
	foreach my $line (@result) {
	if ($line =~ /^The following Packages were marked to be skipped by your configuration:/) {
	last;
	} else {
	$output .= $line;
	}
	}
if (@result > 0) {	if (@result > 0) {
my $output = join('',@result);
if ($output =~ /Fetching Obsoletes list/) {	if ($output =~ /Fetching Obsoletes list/) {
$up2date_error = 0;	$up2date_error = 0;
if ($output =~ /Name\s+Version\s+Rel\s+[\n\r\f]+\-+[\n\r\f]+(.+)/s) {	if ($output =~ /Name\s+Version\s+Rel\s+[\n\r\f]+\-+[\n\r\f]+(.+)/s) {
my $packagelist = $1;	my $packagelist = $1;
unless (($packagelist =~ /^The following Packages were marked to be skipped by your configuration:/) \|\| ($packagelist eq '')) {	if ($packagelist ne '' && $packagelist !~ /^[\s\n\r\f]+$/) {
open(TMPFILE,">>$tmpfile");	open(TMPFILE,">>$tmpfile");
print TMPFILE $packagelist;	print TMPFILE $packagelist;
close(TMPFILE);	close(TMPFILE);