Remove check() subroutine

This has been broken since kernel-package 10.037 because it uses '+='
instead of '.='.  Since no-one seems to care, remove it rather than
fixing it.


svn path=/dists/trunk/linux-2.6/; revision=16234
This commit is contained in:
Ben Hutchings 2010-09-03 22:29:24 +00:00
parent 66caf86b16
commit 05c7ed67bd
1 changed files with 0 additions and 48 deletions

View File

@ -76,54 +76,6 @@ if (-r "$CONF_LOC" && -f "$CONF_LOC" ) {
$ENV{KERNEL_ARCH}=$kernel_arch if $kernel_arch;
sub check {
my $version = shift;
my $lib_modules="$modules_base/$version";
my $message = '';
if (-d "$lib_modules") {
opendir(DIR, $lib_modules) || die "cant opendir $lib_modules: $!";
my @children = readdir(DIR);
if ($#children > 1) {
my @dirs = grep { -d "$lib_modules/$_" } @children;
if ($#dirs > 1) { # we have subdirs
my $dir_message='';
for my $dir (@dirs) {
if ($dir =~/kernel$/) {
$dir_message="An older install was detected.\n";
}
else {
$dir_message="Module sub-directories were detected.\n"
unless $dir_message;
}
}
$message += $dir_message if $dir_message;
}
my @links = grep { -l "$lib_modules/$_" } @children;
if ($#links > -1) {
my $links_message = '';
for my $link (@links) {
next if ($link =~ /^build$/);
next if ($link =~ /^source$/);
$links_message = "Symbolic links were detected in $modules_base/$version.\n";
}
$message += $links_message if $links_message;
}
my @files = grep { -f "$lib_modules/$_" } @children;
$message += "Additional files also exist in $modules_base/$version.\n"
if ($#files > -1);
}
}
else { $message .= "$lib_modules does not exist. ";}
return $message;
}
if (-d "$modules_base/$version") {
my $errors=check($version);
warn "Info:\n$errors\n" if $errors;
}
if (-d "$modules_base/$version" && -l "$modules_base/$version/build" ) {
rename("$modules_base/$version/build", "$modules_base/$version/build.save") ||
die "failed to move $modules_base/$version/build:$!";