diff options
| -rw-r--r-- | perl-install/install2.pm | 3 | ||||
| -rw-r--r-- | perl-install/partition_table.pm | 7 |
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); |