summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install2.pm3
-rw-r--r--perl-install/partition_table.pm7
2 files changed, 10 insertions, 0 deletions
diff --git a/perl-install/install2.pm b/perl-install/install2.pm
index 9584641ae..f737dc00a 100644
--- a/perl-install/install2.pm
+++ b/perl-install/install2.pm
@@ -491,6 +491,9 @@ sub main {
log::l("switching to newt install cuz not enough memory");
$o->{interactive} = "newt";
}
+ # perl_checker: require install_steps_gtk
+ # perl_checker: require install_steps_newt
+ # perl_checker: require install_steps_stdio
require "install_steps_$o->{interactive}.pm" if $o->{interactive};
#- needed before accessing floppy (in case of usb floppy)
diff --git a/perl-install/partition_table.pm b/perl-install/partition_table.pm
index c6effc3ec..39a164575 100644
--- a/perl-install/partition_table.pm
+++ b/perl-install/partition_table.pm
@@ -464,6 +464,13 @@ sub read_one($$) {
foreach ('empty', @parttype, 'lvm_PV', 'unknown') {
/unknown/ and die "unknown partition table format on disk " . $hd->{file};
eval {
+ # perl_checker: require partition_table::bsd
+ # perl_checker: require partition_table::dos
+ # perl_checker: require partition_table::empty
+ # perl_checker: require partition_table::gpt
+ # perl_checker: require partition_table::lvm_PV
+ # perl_checker: require partition_table::mac
+ # perl_checker: require partition_table::sun
require "partition_table/$_.pm";
bless $hd, "partition_table::$_";
($pt, $info) = $hd->read($sector);