Browse Source

This fixes kernel_version_check to return a value.

master
freesource 23 years ago
parent
commit
640ddbca30
  1. 7
      BootRoot/Yard.pm

7
BootRoot/Yard.pm

@ -91,7 +91,7 @@ sub logadj { $logadj = $_[0]; }
sub kernel_version_check {
my($kernel,$kernel_version) = @_;
if (defined($kernel_version)) {
# Check to see if it agrees
my($version_guess) = kernel_version($kernel);
@ -103,6 +103,7 @@ sub kernel_version_check {
"even though a probe says $version_guess.",
" I'll assume you're right.\n")
}
$ENV{'RELEASE'} = $kernel_version;
} elsif (defined($ENV{'RELEASE'} = kernel_version($kernel))) {
@ -122,6 +123,8 @@ sub kernel_version_check {
}
}
return $ENV{'RELEASE'} if $ENV{'RELEASE'};
} # end sub kernel_version_check
## This checks lib/modules/$version for rd.o, ext2.o, floppy.o
@ -1501,7 +1504,7 @@ sub kernel_version {
$str = unpack("S",$str);
#info (0, "Kernel setup header version is 0x");
# 2.4.0 kernels now use Start Text 0x202
# 2.4.0 kernels now use Start Text 0x202 - freesource
unless ($str == 0x201
|| $str == 0x0202) {
print sprintf("%04x",$str);

Loading…
Cancel
Save