From 422d63b7ef2d8e8b240cf84816eaf15e32cb3d20 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 8 Aug 2001 20:10:26 +0000
Subject: makes interactive_pkgs stuff work

---
 perl-install/any.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

diff --git a/perl-install/any.pm b/perl-install/any.pm
index 3e4fb99a0..7ccfffbd1 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -408,7 +408,7 @@ sub pppConfig {
 
     symlinkf($modem->{device}, "$prefix/dev/modem") or log::l("creation of $prefix/dev/modem failed")
       if $modem->{device} ne "/dev/modem";
-    $in->do_pkgs->install->('ppp') if !$::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