From 58d81bc71063e3b65d4eae4769e04b21beda742c Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Mon, 2 Oct 2000 17:52:54 +0000
Subject: *** empty log message ***

---
 perl-install/install_any.pm | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'perl-install/install_any.pm')

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);
-- 
cgit v1.2.1