summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-12-18 15:23:34 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-12-18 15:23:34 +0000
commitcabec45b66bf300e72243d842d7c5267bdbf6b23 (patch)
tree284a864835c3daee3d63704a3d9076e28ed0c5f1
parent739d2dead3c6afd511fa478df666c84739d6930b (diff)
downloaddrakx-backup-do-not-use-cabec45b66bf300e72243d842d7c5267bdbf6b23.tar
drakx-backup-do-not-use-cabec45b66bf300e72243d842d7c5267bdbf6b23.tar.gz
drakx-backup-do-not-use-cabec45b66bf300e72243d842d7c5267bdbf6b23.tar.bz2
drakx-backup-do-not-use-cabec45b66bf300e72243d842d7c5267bdbf6b23.tar.xz
drakx-backup-do-not-use-cabec45b66bf300e72243d842d7c5267bdbf6b23.zip
enumerate the various required packages when requiring a package dynamically known
-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);