diff options
| author | Francois Pons <fpons@mandriva.com> | 2000-10-02 17:52:54 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 2000-10-02 17:52:54 +0000 |
| commit | 58d81bc71063e3b65d4eae4769e04b21beda742c (patch) | |
| tree | 5ee0739499917c866693c74b784a540ac23912eb | |
| parent | b42ac55e9b4250a3d5ee52e0d91e94bb27f99152 (diff) | |
| download | drakx-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/ChangeLog | 2 | ||||
| -rw-r--r-- | perl-install/install_any.pm | 2 |
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); |