Browse Source

Now global hashes are always cleared when a new check is ran, this makes more

sense and avoids subtle errors.
master
freesource 23 years ago
parent
commit
4f0acd4aaa
  1. 12
      BootRoot/Yard.pm

12
BootRoot/Yard.pm

@ -168,9 +168,11 @@ sub read_contents_file {
my $fs_type = (split(/\s/,$main::makefs))[0]; my $fs_type = (split(/\s/,$main::makefs))[0];
# If the template changes it is time to clear all the values. # If the template changes it is time to clear all the values.
# Delete devices table. # Delete devices table. Actually, for fail safe operation,
if ( ($contents_file_tmp && $contents_file_tmp ne $contents_file) or # always clear the values when a check is done, this avoids
$fs_type eq "genext2fs" ) { # spurious errors.
#if ( ($contents_file_tmp && $contents_file_tmp ne $contents_file) or
# $fs_type eq "genext2fs" ) {
undef %Included; undef %Included;
undef %replaced_by; undef %replaced_by;
undef %links_to; undef %links_to;
@ -180,9 +182,11 @@ sub read_contents_file {
undef %lib_needed_by; undef %lib_needed_by;
undef @Libs; undef @Libs;
undef %pam_repeats; undef %pam_repeats;
} undef %user_defined_link;
#}
$contents_file_tmp = $contents_file; $contents_file_tmp = $contents_file;
kernel_version_check($kernel, $kernel_version_choice); kernel_version_check($kernel, $kernel_version_choice);
# Open DEVICE_TABLE # Open DEVICE_TABLE

Loading…
Cancel
Save