From 157fe13a76e798fa8af5f79c792c704a593f6c93 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 8 Aug 2001 18:26:31 +0000
Subject: add interactive_pkgs stuff

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

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

diff --git a/perl-install/any.pm b/perl-install/any.pm
index 86bdd4b8d..3e4fb99a0 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -403,12 +403,12 @@ sub inspect {
 
 #-----modem conf
 sub pppConfig {
-    my ($in, $modem, $prefix, $install) = @_;
+    my ($in, $modem, $prefix) = @_;
     $modem or return;
 
     symlinkf($modem->{device}, "$prefix/dev/modem") or log::l("creation of $prefix/dev/modem failed")
       if $modem->{device} ne "/dev/modem";
-    $install->(qw(ppp)) unless $::testing;
+    $in->do_pkgs->install->('ppp') if !$::testing;
 
     my %toreplace;
     $toreplace{$_} = $modem->{$_} foreach qw(connection phone login passwd auth domain dns1 dns2);
-- 
cgit v1.2.1