Don't break on CD 2 onwards

The $base_components file only matters on disc 1, so check it exists
before trying to do stuff with it.
This commit is contained in:
Steve McIntyre 2023-02-09 01:40:33 +00:00
parent d7796845f4
commit 80f7fa39ff

View File

@ -901,10 +901,12 @@ sub finish_disc {
# Otherwise ensure not to pass --components=main,local to
# debootstrap:
my $base_components = ".disk/base_components";
my @components = read_file($base_components);
if (grep { $_ eq "local\n" } @components) {
print " Removing local from base_components (no such component under $codename)\n";
write_file($base_components, grep { $_ ne "local\n" } @components);
if (-f $base_components) {
my @components = read_file($base_components);
if (grep { $_ eq "local\n" } @components) {
print " Removing local from base_components (no such component under $codename)\n";
write_file($base_components, grep { $_ ne "local\n" } @components);
}
}
}