summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2000-10-02 17:52:54 +0000
committerFrancois Pons <fpons@mandriva.com>2000-10-02 17:52:54 +0000
commit58d81bc71063e3b65d4eae4769e04b21beda742c (patch)
tree5ee0739499917c866693c74b784a540ac23912eb
parentb42ac55e9b4250a3d5ee52e0d91e94bb27f99152 (diff)
downloaddrakx-backup-do-not-use-58d81bc71063e3b65d4eae4769e04b21beda742c.tar
drakx-backup-do-not-use-58d81bc71063e3b65d4eae4769e04b21beda742c.tar.gz
drakx-backup-do-not-use-58d81bc71063e3b65d4eae4769e04b21beda742c.tar.bz2
drakx-backup-do-not-use-58d81bc71063e3b65d4eae4769e04b21beda742c.tar.xz
drakx-backup-do-not-use-58d81bc71063e3b65d4eae4769e04b21beda742c.zip
*** empty log message ***
-rw-r--r--perl-install/ChangeLog2
-rw-r--r--perl-install/install_any.pm2
2 files changed, 4 insertions, 0 deletions
diff --git a/perl-install/ChangeLog b/perl-install/ChangeLog
index 660c7a340..f95282ea0 100644
--- a/perl-install/ChangeLog
+++ b/perl-install/ChangeLog
@@ -10,6 +10,8 @@
* diskdrake.pm: adding a cylinder for the minimum of the resize
and if there is nothing to do for resize, simply return.
+ * install_any.pm: added missing require pkgs.
+
2000-10-02 Pixel <pixel@mandrakesoft.com>
* any.pm (addUsers): grpuser output goes to Mr Dave
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 982ba85a4..18ac6754f 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -197,6 +197,7 @@ sub kernelVersion {
my ($o) = @_;
local $_ = readlink("$::o->{prefix}/boot/vmlinuz") and return first(/vmlinuz-(.*)/);
+ require pkgs;
my $p = pkgs::packageByName($o->{packages}, "kernel") or die "I couldn't find the kernel package!";
pkgs::packageVersion($p) . "-" . pkgs::packageRelease($p);
}
@@ -530,6 +531,7 @@ sub g_auto_install(;$) {
my ($f) = @_; $f ||= auto_inst_file;
my $o = {};
+ require pkgs;
$o->{default_packages} = [ map { pkgs::packageName($_) } grep { pkgs::packageFlagSelected($_) && !pkgs::packageFlagBase($_) } values %{$::o->{packages}[0]} ];
my @fields = qw(mntpoint type size);