sub debian_overlays ($$) {
my ($ho, $func) = @_;
- $func->($c{OverlayLocal}, 'overlay-local.tar');
- $func->('overlay', 'overlay.tar');
+ # calls $func->($local_dir, $tarball_leafname);
+ my $maybe = sub {
+ my ($local_dir, $tarball_leafname) = @_;
+ if (stat $local_dir) {
+ $func->($local_dir, $tarball_leafname);
+ } elsif ($! == ENOENT) {
+ # ok
+ } else {
+ die "debian_overlays cannot check $local_dir: $!";
+ }
+ };
+ $maybe->($c{OverlayLocal}, 'overlay-local.tar');
+ $maybe->('overlay', 'overlay.tar');
}
sub preseed_base ($$$;@) {